accept-connection ( server -- )

Vocabulary

io.servers.private

Inputs

server

an object

Outputs

None

Definition

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

IN: io.servers.private

:: accept-connection ( server -- )
    threaded-server get semaphore>> :> semaphore semaphore [
        semaphore acquire
        [ server semaphore (accept-connection) ] [ ]
        [ semaphore release ] cleanup
    ] [ server f (accept-connection) ] if ;