sequences.extras: adding reject!.

diff --git a/extra/sequences/extras/extras-tests.factor b/extra/sequences/extras/extras-tests.factor
index c53bc1f8301cd82b9c82f00e69bb8b190532da13..aaa405219e3215b01a94c251a49da75cad8eeb8b 100644 (file)
--- a/extra/sequences/extras/extras-tests.factor
+++ b/extra/sequences/extras/extras-tests.factor
@@ -1,6 +1,6 @@
 USING: arrays ascii io io.streams.string kernel make math
 math.vectors random sequences sequences.extras strings
-tools.test ;
+tools.test vectors ;
 
 IN: sequences.extras.tests
 
@@ -177,3 +177,4 @@ IN: sequences.extras.tests
 { 2 "moose" } [ { "chicken" "beef" "moose" } [ first ] supremum-by* ] unit-test
 
 { "0123456789" } [ 58 iota [ 48 < ] "" reject-as ] unit-test
+{ V{ 1 3 5 7 9 } } [ 10 iota >vector [ even? ] reject! ] unit-test

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index c9b079343958b9f1d7c9aac41d6994cf95d6ff5a..f620216c815a5e38ac6444cbb567a8c2f7f943f0 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -518,3 +518,6 @@ PRIVATE>
 
 : reject ( ... seq quot: ( ... elt -- ... ? ) -- ... subseq )
     over reject-as ; inline
+
+: reject! ( ... seq quot: ( ... elt -- ... ? ) -- ... subseq )
+    [ not ] compose filter! ; inline