time-server: main word should not return immediately (reported by Alec Barryman)

2010-07-31 18:33:39 -04:00 · 2010-07-31 18:33:39 -04:00 · 4ab1950219
parent 1a137e9b5d
commit 4ab1950219
1 changed files with 2 additions and 2 deletions
--- a/extra/time-server/time-server.factor
+++ b/extra/time-server/time-server.factor
@ -13,7 +13,7 @@ IN: time-server
        1234 >>insecure
        [ handle-time-client ] >>handler ;

-: start-time-server ( -- threaded-server )
-    <time-server> [ start-server ] in-thread ;
+: start-time-server ( -- )
+    <time-server> start-server ;

 MAIN: start-time-server