From 2b32e31ad27f608c1cff8d3da077272c1721d690 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 13 Nov 2014 13:02:30 -0800 Subject: [PATCH] readline-listener: print version-info. --- extra/readline-listener/readline-listener.factor | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/extra/readline-listener/readline-listener.factor b/extra/readline-listener/readline-listener.factor index 90c13767cd..3d5038232b 100644 --- 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