readline-listener: print version-info.

diff --git a/extra/readline-listener/readline-listener.factor b/extra/readline-listener/readline-listener.factor
index 90c13767cd2c5d5cd28cfa9bfcf7aa1232b4d0b8..3d5038232b97e5cf246301ee9276b168b5df8a58 100644 (file)
--- a/extra/readline-listener/readline-listener.factor
+++ b/extra/readline-listener/readline-listener.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2011 Erik Charlebois.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors assocs colors.constants combinators fry io
-kernel listener readline sequences splitting threads
+kernel listener readline sequences splitting system threads
 tools.completion unicode.data vocabs vocabs.hierarchy ;
 IN: readline-listener
 
@@ -56,4 +56,7 @@ PRIVATE>
     ] set-completion
     readline-reader new [ listener ] with-input-stream* ;
 
-MAIN: readline-listener
+: readline-listener-main ( -- )
+    version-info print flush readline-listener ;
+
+MAIN: readline-listener-main