<time-server> ( port -- threaded-server )

Vocabulary

time-server

Inputs

port

an object

Outputs

threaded-server

an object

Definition

USING: accessors io.encodings.ascii io.servers kernel ;

IN: time-server

: <time-server> ( port -- threaded-server )
    ascii <threaded-server> "time-server" >>name swap >>insecure
    [ handle-time-client ] >>handler ;