Change fuel.remote to use tty-server.

diff --git a/extra/fuel/remote/remote.factor b/extra/fuel/remote/remote.factor
index e7b797fc199b811d0a429c0135f56205265e7dc9..b643614226cafd40d38d90b89d800b68ba62a83b 100644 (file)
--- a/extra/fuel/remote/remote.factor
+++ b/extra/fuel/remote/remote.factor
@@ -1,20 +1,12 @@
 ! Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors debugger io io.encodings.utf8 io.servers
-kernel listener math namespaces ;
-IN: fuel.remote
 
-<PRIVATE
+USING: accessors io io.encodings.utf8 io.servers kernel math
+namespaces tty-server ;
 
-: start-listener ( -- )
-    [ [ drop print-error-and-restarts ] error-hook set listener ] with-scope ;
+IN: fuel.remote
 
-: server ( port -- server )
-    utf8 <threaded-server>
-        "tty-server" >>name
-        swap local-server >>insecure
-        [ start-listener ] >>handler
-        f >>timeout ;
+<PRIVATE
 
 : print-banner ( -- )
     "Starting server. Connect with 'M-x connect-to-factor' in Emacs"
@@ -23,7 +15,7 @@ IN: fuel.remote
 PRIVATE>
 
 : fuel-start-remote-listener ( port/f -- )
-    print-banner integer? [ 9000 ] unless* server start-server drop ;
+    print-banner integer? [ 9000 ] unless* <tty-server> start-server drop ;
 
 : fuel-start-remote-listener* ( -- ) f fuel-start-remote-listener ;
 

diff --git a/extra/tty-server/tty-server.factor b/extra/tty-server/tty-server.factor
index 438faa0decf4f64ce5601457a869138e91e2c1b3..6fef3b9ef4afc031e2b063e67c3f19fbf6ef8723 100644 (file)
--- a/extra/tty-server/tty-server.factor
+++ b/extra/tty-server/tty-server.factor
@@ -1,13 +1,19 @@
-USING: listener io.servers io.encodings.utf8 accessors kernel ;
+USING: accessors debugger kernel listener io.servers
+io.encodings.utf8 namespaces ;
+
 IN: tty-server
 
-: <tty-server> ( port -- )
+: start-listener ( -- )
+    [ [ drop print-error-and-restarts ] error-hook set listener ] with-scope ;
+
+: <tty-server> ( port -- server )
     utf8 <threaded-server>
         "tty-server" >>name
         swap local-server >>insecure
-        [ listener ] >>handler
-    start-server drop ;
+        [ start-listener ] >>handler
+        f >>timeout ;
 
-: tty-server ( -- ) 9999 <tty-server> ;
+: run-tty-server ( -- )
+    9999 <tty-server> start-server drop ;
 
-MAIN: tty-server
+MAIN: run-tty-server