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

io: adding stream-bl.

db4
John Benediktsson 2013-03-14 19:23:10 -07:00
parent b56556f0ab
commit 7bf1173bc3
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/io/io.factor
View File

@ -99,7 +99,9 @@ SYMBOL: error-stream
: print ( str -- ) output-stream get stream-print ; inline
: bl ( -- ) " " write ;
: stream-bl ( stream -- ) " " swap stream-write ; inline
: bl ( -- ) output-stream get stream-bl ;
: each-morsel ( ..a handler: ( ..a data -- ..b ) reader: ( ..b -- ..a data ) -- ..a )
[ dup ] compose swap while drop ; inline