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

[factor.git] / core / classes / algebra / algebra.factor

diff --git a/core/classes/algebra/algebra.factor b/core/classes/algebra/algebra.factor
index 074cf1b9e3c592bb6f68e697b6a66e6cac80e3d8..322320e837d297105e5f35ebc461fdb7e51349f6 100644 (file)
--- a/core/classes/algebra/algebra.factor
+++ b/core/classes/algebra/algebra.factor
@@ -19,7 +19,7 @@ ERROR: not-classoids sequence ;
 
 : check-classoids ( members -- members )
     dup [ classoid? ] all?
-    [ [ classoid? not ] filter not-classoids ] unless ;
+    [ [ classoid? ] reject not-classoids ] unless ;
 
 ERROR: not-a-classoid object ;
 
@@ -28,7 +28,7 @@ ERROR: not-a-classoid object ;
 
 : <anonymous-union> ( members -- classoid )
     check-classoids
-    [ null eq? not ] filter set-members
+    [ null eq? ] reject set-members
     dup length 1 = [ first ] [ sort-classes f like anonymous-union boa ] if ;
 
 M: anonymous-union rank-class drop 6 ;