sets: using reject in a couple places.

diff --git a/core/sets/sets.factor b/core/sets/sets.factor
index 4a78d39865dd355b5dfbbb524520df9f7412640a..22756b92f30940c6d0fb0cabaf09aadadcad1771 100644 (file)
--- a/core/sets/sets.factor
+++ b/core/sets/sets.factor
@@ -73,7 +73,7 @@ M: set union [ (union) ] keep set-like ;
     small/large sequence/tester filter ; inline
 
 : (diff) ( set1 set2 -- seq )
-    sequence/tester [ not ] compose filter ; inline
+    sequence/tester reject ; inline
 
 PRIVATE>
 
@@ -162,7 +162,7 @@ M: sequence clear-set
     tester filter ;
 
 : without ( seq set -- subseq )
-    tester [ not ] compose filter ;
+    tester reject ;
 
 : adjoin-all ( seq set -- )
     [ adjoin ] curry each ;