listener: print version-info in command-line.

diff --git a/basis/listener/listener.factor b/basis/listener/listener.factor
index 1e5f38e09383df8d798213cfc608c3ece9a654d4..bdfb86ea2a22f161b437f373aebc90826a84d57d 100644 (file)
--- a/basis/listener/listener.factor
+++ b/basis/listener/listener.factor
@@ -4,7 +4,7 @@ USING: accessors colors colors.constants
 combinators.short-circuit compiler.units continuations debugger
 fry io io.styles kernel lexer locals math math.parser namespaces
 parser parser.notes prettyprint sequences sets
-source-files.errors vocabs vocabs.loader vocabs.parser ;
+source-files.errors system vocabs vocabs.loader vocabs.parser ;
 IN: listener
 
 GENERIC: stream-read-quot ( stream -- quot/f )
@@ -211,4 +211,7 @@ SYMBOL: interactive-vocabs
 : listener ( -- )
     [ [ { } (listener) ] with-return ] with-interactive-vocabs ;
 
-MAIN: listener
+: listener-main ( -- )
+    version-info print flush listener ;
+
+MAIN: listener-main