use reject instead of [ ... not ] filter.

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

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index f3a7d10fb6b777803aa04ad2a56fb98286996fa8..a925ed8188d10ebdf02a5ae0c8824fd483ad96c9 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -257,7 +257,7 @@ PRIVATE>
     [ empty? not ] swap filter-as ;
 
 : harvest! ( seq -- newseq )
-    [ empty? not ] filter! ;
+    [ empty? ] reject! ;
 
 : head-as ( seq n exemplar -- seq' )
     [ head-slice ] [ like ] bi* ; inline