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

[factor.git] / basis / compiler / crossref / crossref-tests.factor

diff --git a/basis/compiler/crossref/crossref-tests.factor b/basis/compiler/crossref/crossref-tests.factor
index 9cd475b2dedec460304a9750649653feb45f25cc..38798de8da6185d9c15998f09a7dce46fe2a30c1 100644 (file)
--- a/basis/compiler/crossref/crossref-tests.factor
+++ b/basis/compiler/crossref/crossref-tests.factor
@@ -5,5 +5,5 @@ IN: compiler.crossref.tests
 ! in the middle of recompiling something
 [ { } ] [
     all-words dup [ subwords ] map concat append
-    H{ } clone '[ _ dependencies-satisfied? not ] filter
+    H{ } clone '[ _ dependencies-satisfied? ] reject
 ] unit-test