wait-to-connect ( port -- )

Vocabulary

io.sockets.unix

Inputs

port

an object

Outputs

None

Definition

USING: accessors io.files io.ports kernel libc math unix.ffi ;

IN: io.sockets.unix

: wait-to-connect ( port -- )
    dup +output+ wait-for-port
    dup handle>> SOL_SOCKET SO_ERROR get-socket-option
    [ drop ] [ (throw-errno) ] if-zero ; inline