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

2014-02-25 10:13:05 -08:00 · 2014-02-25 10:13:05 -08:00 · d2cd57d68f
parent b0195bb448
commit d2cd57d68f
1 changed files with 1 additions and 1 deletions
--- a/core/io/streams/sequence/sequence.factor
+++ b/core/io/streams/sequence/sequence.factor
@ -48,7 +48,7 @@ PRIVATE>
 <PRIVATE

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