time-server-main ( -- )

Vocabulary

time-server

Inputs

None

Outputs

None

Definition

USING: command-line io.servers math.parser namespaces sequences
;

IN: time-server

: time-server-main ( -- )
    command-line get [ 1234 ] [ first string>number ] if-empty
    <time-server> start-server wait-for-server ;