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

io: remove higher-order stack effects 

More stack checker breakage
db4
Joe Groff 2011-10-14 23:23:22 -07:00
parent 0353179a92
commit cd0eb76806
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/io/io.factor
View File

@ -95,11 +95,11 @@ SYMBOL: error-stream
: (new-sequence-for-stream) ( n stream -- seq ) : (new-sequence-for-stream) ( n stream -- seq )
stream-exemplar new-sequence ; inline stream-exemplar new-sequence ; inline
: (read-into-new) ( n stream quot: ( n buf stream -- count ) -- seq/f ) : (read-into-new) ( n stream quot -- seq/f )
[ 2dup (new-sequence-for-stream) swap ] dip curry keep [ 2dup (new-sequence-for-stream) swap ] dip curry keep
over 0 = [ 2drop f ] [ resize ] if ; inline over 0 = [ 2drop f ] [ resize ] if ; inline
: (read-into) ( buf stream quot: ( n buf stream -- count ) -- buf-slice/f ) : (read-into) ( buf stream quot -- buf-slice/f )
[ dup length over ] 2dip call [ dup length over ] 2dip call
[ drop f ] [ head-slice ] if-zero ; inline [ drop f ] [ head-slice ] if-zero ; inline