From 97de22755cd1c3b8a209fc017645b42430efc9f9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Tue, 6 Oct 2015 13:54:33 +0200 Subject: [PATCH] fuel: move the server-starting main to the fuel.remote vocab --- extra/fuel/fuel.factor | 13 ++++--------- extra/fuel/remote/remote.factor | 7 ++++--- 2 files changed, 8 insertions(+), 12 deletions(-) diff --git a/extra/fuel/fuel.factor b/extra/fuel/fuel.factor index 1ef7f1666b..233768530f 100644 --- a/extra/fuel/fuel.factor +++ b/extra/fuel/fuel.factor @@ -1,10 +1,9 @@ ! Copyright (C) 2008, 2009 Jose Antonio Ortega Ruiz. ! See http://factorcode.org/license.txt for BSD license. - -USING: accessors assocs compiler.units continuations fuel.eval fuel.help -fuel.remote fuel.xref help.topics io.pathnames kernel namespaces parser -sequences tools.scaffold vocabs.loader vocabs.parser words vocabs.files -vocabs.metadata vocabs vocabs.hierarchy ; +USING: accessors assocs compiler.units continuations fuel.eval +fuel.help fuel.xref help.topics io.pathnames kernel namespaces parser +sequences tools.scaffold vocabs vocabs.files vocabs.hierarchy +vocabs.loader vocabs.metadata vocabs.parser words ; IN: fuel @@ -165,7 +164,3 @@ PRIVATE> [ drop [ vocab-platforms-path ] keep swap vocab-append-path absolute-path fuel-eval-set-result ] 2bi ; : fuel-scaffold-get-root ( name -- ) find-vocab-root fuel-eval-set-result ; - -! Remote connection - -MAIN: fuel-start-remote-listener* diff --git a/extra/fuel/remote/remote.factor b/extra/fuel/remote/remote.factor index 27f0ffc9dd..b9cb3d139d 100644 --- a/extra/fuel/remote/remote.factor +++ b/extra/fuel/remote/remote.factor @@ -1,8 +1,6 @@ ! Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz. ! See http://factorcode.org/license.txt for BSD license. - -USING: accessors io io.encodings.utf8 io.servers kernel math -namespaces tty-server ; +USING: io io.servers kernel math tty-server ; IN: fuel.remote @@ -18,3 +16,6 @@ PRIVATE> print-banner integer? [ 9000 ] unless* start-server drop ; : fuel-start-remote-listener* ( -- ) f fuel-start-remote-listener ; + +! Remote connection +MAIN: fuel-start-remote-listener*