steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/listener/listener.factor
View File

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