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

[factor.git] / basis / compiler / tree / propagation / transforms / transforms.factor

diff --git a/basis/compiler/tree/propagation/transforms/transforms.factor b/basis/compiler/tree/propagation/transforms/transforms.factor
index fcbb2b272b4225fced2787abe4cf5af904c0394b..a756fa570165ce62d7dffefabfa0d1ebffd2e1a9 100644 (file)
--- a/basis/compiler/tree/propagation/transforms/transforms.factor
+++ b/basis/compiler/tree/propagation/transforms/transforms.factor
@@ -301,7 +301,7 @@ CONSTANT: lookup-table-at-max 256
 \ at* [ at-quot ] 1 define-partial-eval
 
 : diff-quot ( seq -- quot: ( seq' -- seq'' ) )
-    [ tester ] keep '[ members [ @ not ] filter _ set-like ] ;
+    [ tester ] keep '[ members [ @ ] reject _ set-like ] ;
 
 M\ set diff [ diff-quot ] 1 define-partial-eval