socket-port-number

[procedure] socket-port-number socket

Scheme48: returns port number of socket. See open-socket.

STk, STklos also have this. See make-client-socket, make-server-socket.