tools.gc-decode.tests: if the #1227 test failure happens again, you now get informati...

diff --git a/extra/tools/gc-decode/gc-decode-tests.factor b/extra/tools/gc-decode/gc-decode-tests.factor
index 91a5b96ecab3e7a42b87349c0681294126b36e96..5e92ae5bad40ccd4798c6e9e4ddcd966cd5dee48 100644 (file)
--- a/extra/tools/gc-decode/gc-decode-tests.factor
+++ b/extra/tools/gc-decode/gc-decode-tests.factor
@@ -83,9 +83,9 @@ IN: tools.gc-decode.tests
 : normal? ( word -- ? )
     { [ generic? ] [ primitive? ] [ inline? ] [ no-compile? ] } 1|| not ;
 
-{ t } [
+{ { } } [
     all-words [ normal? ] filter 20 sample
-    [ [ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info? ] all?
+    [ [ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info? not ] filter
 ] unit-test
 
 : base-pointer-groups-expected ( word -- seq )