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

io.streams.sequence: make sure not to return ``f``.

db4
John Benediktsson 2014-03-10 15:10:29 -07:00
parent e55be4e70f
commit e966659105
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/io/streams/sequence/sequence.factor
View File

@ -55,7 +55,8 @@ PRIVATE>
: (sequence-read-until) ( seps stream -- seq sep/f ) : (sequence-read-until) ( seps stream -- seq sep/f )
[ find-separator ] keep [ find-separator ] keep
[ [ (sequence-read-unsafe) ] (read-into-new) ] [ [ (sequence-read-unsafe) ] (read-into-new) ]
[ [ 1 + ] change-i drop ] bi swap ; inline [ [ 1 + ] change-i drop ]
[ stream-element-type +byte+ eq? B{ } "" ? or ] tri swap ; inline
PRIVATE> PRIVATE>