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

io: improve signature of each-block and each-line.

db4
John Benediktsson 2011-03-25 12:20:51 -07:00
parent a5c193b8c4
commit 69ec12c2dc
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/io/io.factor
View File

@ -90,10 +90,10 @@ SYMBOL: error-stream
PRIVATE>
: each-stream-line ( stream quot -- )
: each-stream-line ( stream quot: ( ... line -- ... ) -- )
swap [ stream-readln ] curry each-morsel ; inline
: each-line ( quot -- )
: each-line ( quot: ( ... line -- ... ) -- )
input-stream get swap each-stream-line ; inline
: stream-lines ( stream -- seq )
@ -111,10 +111,10 @@ PRIVATE>
: contents ( -- seq )
input-stream get stream-contents ; inline
: each-stream-block ( stream quot: ( block -- ) -- )
: each-stream-block ( stream quot: ( ... block -- ... ) -- )
swap [ 8192 swap stream-read-partial ] curry each-morsel ; inline
: each-block ( quot: ( block -- ) -- )
: each-block ( quot: ( ... block -- ... ) -- )
input-stream get swap each-stream-block ; inline
: stream-copy ( in out -- )