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

[factor.git] / extra / time-server / time-server.factor

diff --git a/extra/time-server/time-server.factor b/extra/time-server/time-server.factor
index 500f0276d7919edbb3cc593a144eec5c8705ae8e..897d5ae155987b85f604343d9a46633f822d0083 100644 (file)
--- 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