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

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

diff --git a/extra/math/extras/extras.factor b/extra/math/extras/extras.factor
index 1072b9801b000b83149b619fddad32cb521fcbf5..c8dee82c93ec33c14a76043b8d5a1e74b8bcac86 100644 (file)
--- a/extra/math/extras/extras.factor
+++ b/extra/math/extras/extras.factor
@@ -115,7 +115,7 @@ PRIVATE>
     [ <clumps> ] [ '[ _ count ] map ] bi* ; inline
 
 : nonzero ( seq -- seq' )
-    [ zero? not ] filter ;
+    [ zero? ] reject ;
 
 : bartlett ( n -- seq )
     dup 1 <= [ 1 = [ 1 1array ] [ { } ] if ] [
@@ -148,10 +148,10 @@ PRIVATE>
     0 [ dup fp-nan? [ drop ] [ + ] if ] binary-reduce ;
 
 : nan-min ( seq -- n )
-    [ fp-nan? not ] filter infimum ;
+    [ fp-nan? ] reject infimum ;
 
 : nan-max ( seq -- n )
-    [ fp-nan? not ] filter supremum ;
+    [ fp-nan? ] reject supremum ;
 
 : fill-nans ( seq -- newseq )
     [ first ] keep [