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

[factor.git] / core / hash-sets / hash-sets.factor

diff --git a/core/hash-sets/hash-sets.factor b/core/hash-sets/hash-sets.factor
index 3f98d7fdd7687c2a94302d84dba45fcc9579ae24..6f2ed9eb503efe16c33504772eb56c747a302137 100644 (file)
--- a/core/hash-sets/hash-sets.factor
+++ b/core/hash-sets/hash-sets.factor
@@ -200,7 +200,7 @@ M: f fast-set drop 0 <hash-set> ;
 M: sequence fast-set >hash-set ;
 
 M: sequence duplicates
-    dup length <hash-set> [ ?adjoin not ] curry filter ;
+    dup length <hash-set> [ ?adjoin ] curry reject ;
 
 M: sequence all-unique?
     dup length <hash-set> [ ?adjoin ] curry all? ;