From 3fc1842ac5e2c6f58c4214cf74299c8ba80cdc82 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Mon, 1 Dec 2014 16:10:01 +0100
Subject: [PATCH] tools.gc-decode.tests: if the #1227 test failure happens
again, you now get informativer output
---
extra/tools/gc-decode/gc-decode-tests.factor | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/extra/tools/gc-decode/gc-decode-tests.factor b/extra/tools/gc-decode/gc-decode-tests.factor
index 91a5b96eca..5e92ae5bad 100644
--- 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 )