(accept-connection) ( server semaphore -- )

Vocabulary

io.servers.private

Inputs

server	an object
semaphore	an object

Outputs

None

Definition

USING: accessors concurrency.semaphores continuations io.sockets
kernel threads ;

IN: io.servers.private

:: (accept-connection) ( server semaphore -- )
    server [ accept ] [ addr>> ] bi [
        '[
            [ _ _ _ handle-client ]
            [ semaphore [ release ] when* ] finally
        ]
    ] [ drop client-thread-name ] 2bi spawn drop ;