From 03301bf6cf3cb39789b6957830682106df09ea03 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Tue, 6 Oct 2015 13:28:38 +0200 Subject: [PATCH] readline-listener: readline-listener can call listener-main which prints version-info --- extra/readline-listener/readline-listener.factor | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/extra/readline-listener/readline-listener.factor b/extra/readline-listener/readline-listener.factor index e1c1aec71a..a789d33308 100644 --- 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 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