readline-listener: readline-listener can call listener-main which prints version...

diff --git a/extra/readline-listener/readline-listener.factor b/extra/readline-listener/readline-listener.factor
index e1c1aec71ab4d8ee8de50eadd17151dfe688f491..a789d33308a6fc5fc89b40900691d53583bf8416 100644 (file)
--- a/extra/readline-listener/readline-listener.factor
+++ b/extra/readline-listener/readline-listener.factor
@@ -1,8 +1,8 @@
 ! 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 system threads
-tools.completion unicode.data vocabs vocabs.hierarchy ;
+USING: accessors assocs colors.constants combinators fry io kernel
+listener readline sequences splitting threads tools.completion
+unicode.data vocabs vocabs.hierarchy ;
 IN: readline-listener
 
 <PRIVATE
@@ -54,9 +54,6 @@ PRIVATE>
         swap get-completions ?nth
         [ clear-completions f ] unless*
     ] set-completion
-    readline-reader new [ listener ] with-input-stream* ;
+    readline-reader new [ listener-main ] with-input-stream* ;
 
-: readline-listener-main ( -- )
-    version-info print flush readline-listener ;
-
-MAIN: readline-listener-main
+MAIN: readline-listener