(make-servers) ( theaded-server addrspecs -- servers )

Vocabulary

io.servers.private

Inputs

theaded-server	an object
addrspecs	an object

Outputs

servers

an object

Definition

USING: accessors destructors io.sockets kernel sequences ;

IN: io.servers.private

: (make-servers) ( theaded-server addrspecs -- servers )
    swap encoding>> [ <server> |dispose ] curry [ map ] curry
    with-destructors ;