compiler.*: Remove the scrubbing part of the GC maps

[factor.git] / extra / tools / image-analyzer / gc-info / gc-info-tests.factor

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 9c9faa7aede0d199f0c97bb3c8a557ab703ffb36..1cf9af4191984d4d0afb5b62c0a699cff44a00da 100644 (file)
--- a/extra/tools/image-analyzer/gc-info/gc-info-tests.factor
+++ b/extra/tools/image-analyzer/gc-info/gc-info-tests.factor
@@ -27,13 +27,9 @@ QUALIFIED: opencl
 
 : tally-gc-maps ( gc-maps -- seq/f )
     [ f ] [
-        {
-            [ [ scrub-d>> length ] map supremum ]
-            [ [ scrub-r>> length ] map supremum ]
-            [ [ gc-root-offsets ] map largest-spill-slot ]
-            [ [ derived-root-offsets ] map [ keys ] map largest-spill-slot ]
-            [ length ]
-        } cleave 5 narray
+        [ [ gc-root-offsets ] map largest-spill-slot ]
+        [ [ derived-root-offsets ] map [ keys ] map largest-spill-slot ]
+        [ length ] tri 3array
     ] if-empty ;
 
 ! Like word>gc-info but uses the compiler