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

io: improve stack effects.

db4
John Benediktsson 2011-03-25 18:30:52 -07:00
parent 3523d24785
commit f9ccaf37ec
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> PRIVATE>
: each-stream-line ( stream quot: ( ... line -- ... ) -- ) : each-stream-line ( ... stream quot: ( ... line -- ... ) -- ... )
swap [ stream-readln ] curry each-morsel ; inline swap [ stream-readln ] curry each-morsel ; inline
: each-line ( quot: ( ... line -- ... ) -- ) : each-line ( ... quot: ( ... line -- ... ) -- ... )
input-stream get swap each-stream-line ; inline input-stream get swap each-stream-line ; inline
: stream-lines ( stream -- seq ) : stream-lines ( stream -- seq )
@ -102,10 +102,10 @@ PRIVATE>
: lines ( -- seq ) : lines ( -- seq )
input-stream get stream-lines ; inline input-stream get stream-lines ; inline
: each-stream-block ( stream quot: ( ... block -- ... ) -- ) : each-stream-block ( ... stream quot: ( ... block -- ... ) -- ... )
swap 65536 swap [ stream-read-partial ] 2curry each-morsel ; inline swap 65536 swap [ stream-read-partial ] 2curry each-morsel ; inline
: each-block ( quot: ( ... block -- ... ) -- ) : each-block ( ... quot: ( ... block -- ... ) -- ... )
input-stream get swap each-stream-block ; inline input-stream get swap each-stream-block ; inline
: stream-contents ( stream -- seq ) : stream-contents ( stream -- seq )