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

io: remove each-block* because it's not useful

db4
Joe Groff 2011-10-13 10:17:30 -07:00
parent 5e2d95ebb2
commit d2855bbf09
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
core/io/io.factor
View File

@ -110,16 +110,9 @@ PRIVATE>
: each-stream-block ( ... stream quot: ( ... block -- ... ) -- ... ) : each-stream-block ( ... stream quot: ( ... block -- ... ) -- ... )
swap [ 65536 swap stream-read-partial ] curry each-morsel ; inline swap [ 65536 swap stream-read-partial ] curry each-morsel ; inline
: each-stream-block* ( ... buffer stream quot: ( ... n buffer -- ... ) -- ... )
-rot [ [ length ] keep ] dip
[ [ stream-read-partial-unsafe ] curry keep ] 3curry 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
: each-block* ( ... buffer quot: ( ... n ptr -- ... ) -- ... )
input-stream get swap each-stream-block* ; inline
: stream-contents ( stream -- seq ) : stream-contents ( stream -- seq )
[ [
[ [ ] collector [ each-stream-block ] dip { } like ] [ [ ] collector [ each-stream-block ] dip { } like ]