add-running-server ( threaded-server running-servers -- )

Vocabulary

io.servers.private

Inputs

threaded-server	an object
running-servers	an object

Outputs

None

Definition

USING: io.servers kernel sets ;

IN: io.servers.private

: add-running-server ( threaded-server running-servers -- )
    dupd ?adjoin [ drop ] [ server-already-running ] if ;