modules.rpc-server: don't start server by default

diff --git a/extra/modules/rpc-server/rpc-server.factor b/extra/modules/rpc-server/rpc-server.factor
index 073804fa8c57447a520272577fcc4b764514ec12..d82f13f7153518fd13ffae404f18ff7ea8b7983f 100644 (file)
--- a/extra/modules/rpc-server/rpc-server.factor
+++ b/extra/modules/rpc-server/rpc-server.factor
@@ -20,12 +20,12 @@ SYMBOL: serving-vocabs serving-vocabs [ V{ } clone ] initialize
 PRIVATE>
 SYNTAX: service current-vocab name>> serving-vocabs get-global adjoin ;
 
-[ [ binary <threaded-server>
+: start-rpc-server ( -- )
+    binary <threaded-server>
     "rpcs" >>name 9012 >>insecure
     [ deserialize {
       { "getter" [ getter ] }
       {  "doer" [ doer ] }
       { "loader" [ deserialize vocab serialize flush ] } 
     } case ] >>handler
-    start-server ] in-thread
-] "modules.rpc-server" add-init-hook
\ No newline at end of file
+    start-server ;