listener: print version-info in command-line.

db4
John Benediktsson 2014-11-13 09:58:37 -08:00
parent 64b88158bd
commit 74eecb78f9
1 changed files with 5 additions and 2 deletions

View File

@ -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