listener: adding quiet mode.

This skips printing the version info when starting the listener. ./factor -q ./factor -q -run=listener ./factor -q -run=readline-listener
2019-11-06 08:09:16 -08:00 · 2019-11-06 08:09:16 -08:00 · 745840dfca
parent 715283d11d
commit 745840dfca
1 changed files with 1 additions and 1 deletions
--- a/basis/listener/listener.factor
+++ b/basis/listener/listener.factor
@ -228,6 +228,6 @@ SYMBOL: interactive-vocabs
    ] with-interactive-vocabs ;

 : listener-main ( -- )
-    version-info print flush listener ;
+    "q" get [ version-info print flush ] unless listener ;

 MAIN: listener-main