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

[factor.git] / extra / tools / gc-decode / gc-decode-tests.factor

diff --git a/extra/tools/gc-decode/gc-decode-tests.factor b/extra/tools/gc-decode/gc-decode-tests.factor
index 22041fca867e13ca8bdcf73f58ac71d25994458e..556c8b277af020838d58baab2da7ba11d099d3c9 100644 (file)
--- a/extra/tools/gc-decode/gc-decode-tests.factor
+++ b/extra/tools/gc-decode/gc-decode-tests.factor
@@ -72,7 +72,7 @@ IN: tools.gc-decode.tests
 
 { { } } [
     all-words [ normal? ] filter 50 sample
-    [ [ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info? not ] filter
+    [ [ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info? ] reject
 ] unit-test
 
 : base-pointer-groups-expected ( word -- seq )