tools.image-analyzer.gc-info.tests: trying again to fix the test

diff --git a/extra/tools/image-analyzer/gc-info/gc-info-tests.factor b/extra/tools/image-analyzer/gc-info/gc-info-tests.factor
index ffe7855afa7bcc5351dc9252f72b73b650a3a52d..ae85daf308fd1b6f7cff657513faeaa8989d4af0 100644 (file)
--- a/extra/tools/image-analyzer/gc-info/gc-info-tests.factor
+++ b/extra/tools/image-analyzer/gc-info/gc-info-tests.factor
@@ -3,7 +3,7 @@ classes.struct combinators.short-circuit compiler compiler.cfg
 compiler.cfg.debugger compiler.cfg.instructions
 compiler.cfg.linearization compiler.codegen.gc-maps compiler.units fry
 generic grouping io io.encodings.binary io.streams.byte-array kernel
-literals math namespaces random sequences system tools.image-analyzer.gc-info
+math namespaces random sequences system tools.image-analyzer.gc-info
 tools.image-analyzer.utils tools.test vm vocabs words ;
 IN: tools.image-analyzer.gc-info.tests
 QUALIFIED: cpu.x86.features.private
@@ -71,12 +71,19 @@ QUALIFIED: opencl
 ] unit-test
 
 cpu x86.64? [
-    {
+    os windows? [
         ! The difference is because Windows stack references are
         ! longer because of the home space.
-        { ${ os windows? 156 155 ? { ?{ f t t t t } { } } } }
-    } [
-        \ effects:<effect> word>gc-maps
+        {
+            { 156 { ?{ f f f f f t t t t } { } } }
+        }
+    ] [
+        {
+            { 155 { ?{ f t t t t } { } } }
+        }
+    ] if
+    [
+        \ effects:<effect> word>gc-maps first
     ] unit-test
 ] when