accept-loop ( server -- )

Vocabulary

io.servers.private

Inputs

server

an object

Outputs

None

Definition

USING: accessors kernel ;

IN: io.servers.private

: accept-loop ( server -- )
    dup disposed>>
    [ drop ] [ [ accept-connection ] [ accept-loop ] bi ] if ;