server. ( threaded-server -- )

Vocabulary

io.servers

Inputs

threaded-server

an object

Outputs

None

Definition

USING: accessors io io.styles kernel present sequences ;

IN: io.servers

: server. ( threaded-server -- )
    [ [ "=== " write name>> ] [ ] bi write-object nl ]
    [ servers>> [ addr>> present print ] each ] bi ;