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

2014-03-10 15:10:29 -07:00 · 2014-03-10 15:10:29 -07:00 · e966659105
parent e55be4e70f
commit e966659105
1 changed files with 2 additions and 1 deletions
--- a/core/io/streams/sequence/sequence.factor
+++ b/core/io/streams/sequence/sequence.factor
@ -55,7 +55,8 @@ PRIVATE>
 : (sequence-read-until) ( seps stream -- seq sep/f )
    [ find-separator ] keep
    [ [ (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>