(accept-connection) ( server -- )

Vocabulary

io.servers.private

Inputs

server

an object

Outputs

None

Definition

USING: accessors io.sockets kernel threads ;

IN: io.servers.private

: (accept-connection) ( server -- )
    [ accept ] [ addr>> ] bi
    [ [ handle-client ] 3curry ] [ drop client-thread-name ] 2bi
    spawn drop ;