accept-connection ( server -- )

Vocabulary

io.servers.private

Inputs

server

an object

Outputs

None

Definition

USING: accessors concurrency.semaphores io.servers kernel
namespaces ;

IN: io.servers.private

: accept-connection ( server -- )
    threaded-server get semaphore>>
    [ [ (accept-connection) ] with-semaphore ]
    [ (accept-connection) ] if* ;