1 USING: accessors command-line debugger io.encodings.utf8
2 io.servers kernel listener math.parser namespaces sequences ;
6 : start-listener ( -- )
7 [ [ drop print-error-and-restarts ] error-hook set listener ] with-scope ;
9 : <tty-server> ( port -- server )
10 utf8 <threaded-server>
12 swap local-server >>insecure
13 [ start-listener ] >>handler
16 : run-tty-server ( -- )
17 command-line get [ 9999 ] [ first string>number ] if-empty
18 <tty-server> start-server wait-for-server ;