From a5fbd7e3f89b1f09bd03312aababefb440db99a6 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Mon, 13 Jul 2015 00:54:48 +0200
Subject: [PATCH] tools.image-analyzer.gc-info.tests: the test for scrub-bits
 was completey baked, remove it

---
 .../image-analyzer/gc-info/gc-info-tests.factor    | 14 +-------------
 1 file changed, 1 insertion(+), 13 deletions(-)

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 700efbb6f2..d5a178ed99 100644
--- a/extra/tools/image-analyzer/gc-info/gc-info-tests.factor
+++ b/extra/tools/image-analyzer/gc-info/gc-info-tests.factor
@@ -22,11 +22,6 @@ QUALIFIED: opencl
         gc-info read-struct-safe
     ] with-input-stream ;
 
-: word>scrub-bits ( word -- bits )
-    word>byte-array binary <byte-reader> <backwards-reader> [
-        gc-info read-struct-safe scrub-bits
-    ] with-input-stream ;
-
 : cfg>gc-maps ( cfg -- gc-maps )
     cfg>insns [ gc-map-insn? ] filter [ gc-map>> ] map
     [ gc-map-needed? ] filter ;
@@ -72,14 +67,7 @@ QUALIFIED: opencl
 
 { ?{ t t t t t t t t } } [ B{ 255 } byte-array>bit-array ] unit-test
 
-! scrub-bits
-{
-    { { ?{ } ?{ } ?{ f f f f f } } }
-} [
-    \ word>scrub-bits word>scrub-bits
-] unit-test
-
-! decode-gc-maps
+! word>gc-maps
 { f } [
     \ effects:<effect> word>gc-maps empty?
 ] unit-test
-- 
2.34.1