sequences.extras: adding sift! and harvest!.

2013-03-06 16:39:04 -08:00 · 2013-03-06 16:39:04 -08:00 · 0fe01622de
parent 7e2ff8864f
commit 0fe01622de
1 changed files with 6 additions and 0 deletions
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@ -224,9 +224,15 @@ PRIVATE>
 : sift-as ( seq exemplar -- newseq )
    [ ] swap filter-as ;

+: sift! ( seq -- newseq )
+    [ ] filter! ;
+
 : harvest-as ( seq exemplar -- newseq )
    [ empty? not ] swap filter-as ;

+: harvest! ( seq -- newseq )
+    [ empty? not ] filter! ;
+
 : contains? ( seq elts -- ? )
    [ member? ] curry any? ; inline