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

io.streams.sequence: use member? to support bignum separators.

db4
John Benediktsson 2014-02-25 10:13:05 -08:00
parent b0195bb448
commit d2cd57d68f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -48,7 +48,7 @@ PRIVATE>
<PRIVATE <PRIVATE
: find-separator ( seps stream -- sep/f n ) : find-separator ( seps stream -- sep/f n )
>sequence-stream< rot [ member-eq? ] curry >sequence-stream< rot [ member? ] curry
[ find-from swap ] curry 2keep pick [ find-from swap ] curry 2keep pick
[ drop - ] [ length swap - nip ] if ; inline [ drop - ] [ length swap - nip ] if ; inline