sequences: adding reject/reject-as/reject!.

[factor.git] / extra / sequences / extras / extras.factor

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index abb54dd0ca1311124a340ddd210336a74124a0ba..f3a7d10fb6b777803aa04ad2a56fb98286996fa8 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -507,15 +507,6 @@ PRIVATE>
 : infimum-by* ( ... seq quot: ( ... elt -- ... x ) -- ... i elt )
     [ before? ] select-by* ; inline
 
-: reject-as ( ... seq quot: ( ... elt -- ... ? ) exemplar -- ... subseq )
-    [ [ not ] compose ] [ filter-as ] bi* ; inline
-
-: reject ( ... seq quot: ( ... elt -- ... ? ) -- ... subseq )
-    over reject-as ; inline
-
-: reject! ( ... seq quot: ( ... elt -- ... ? ) -- ... subseq )
-    [ not ] compose filter! ; inline
-
 : change-last ( seq quot -- )
     [ drop length 1 - ] [ change-nth ] 2bi ; inline