time-server: main word should not return immediately (reported by Alec Barryman)
parent
1a137e9b5d
commit
4ab1950219
|
@ -13,7 +13,7 @@ IN: time-server
|
||||||
1234 >>insecure
|
1234 >>insecure
|
||||||
[ handle-time-client ] >>handler ;
|
[ handle-time-client ] >>handler ;
|
||||||
|
|
||||||
: start-time-server ( -- threaded-server )
|
: start-time-server ( -- )
|
||||||
<time-server> [ start-server ] in-thread ;
|
<time-server> start-server ;
|
||||||
|
|
||||||
MAIN: start-time-server
|
MAIN: start-time-server
|
||||||
|
|
Loading…
Reference in New Issue