socket-client?

[procedure] socket-client? socket

[procedure] socket-server? socket

STklos: returns #t iff the socket is a client socket and a server socket, respectively. See also make-client-socket, make-server-socket.