Fix listener

db4
Slava Pestov 2008-02-26 16:45:06 -06:00
parent dd9ace7707
commit ac02bd8319
1 changed files with 3 additions and 3 deletions

View File

@ -1,7 +1,7 @@
! Copyright (C) 2003, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: arrays hashtables io kernel math memory namespaces
parser sequences strings io.styles io.streams.lines
USING: arrays hashtables io kernel math math.parser memory
namespaces parser sequences strings io.styles io.streams.lines
io.streams.duplex vectors words generic system combinators
tuples continuations debugger definitions compiler.units ;
IN: listener
@ -63,7 +63,7 @@ M: duplex-stream stream-read-quot
[ listen until-quit ] if ; inline
: print-banner ( -- )
"Factor #" write build write
"Factor #" write build number>string write
" on " write os write "/" write cpu print ;
: listener ( -- )