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

diff --git a/basis/listener/listener.factor b/basis/listener/listener.factor
index b308ab5947ee1485643b6d92292b1f98ca4490c8..69fb1bc8846ab49b29c2bf1e8200d6a3845ed849 100644 (file)
--- 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