From 74eecb78f93e007bc64e4e58fbceac5e29c9dc70 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 13 Nov 2014 09:58:37 -0800
Subject: [PATCH] listener: print version-info in command-line.

---
 basis/listener/listener.factor | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/basis/listener/listener.factor b/basis/listener/listener.factor
index 1e5f38e093..bdfb86ea2a 100644
--- 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