 { ?{ t t t t t t t t } } [ B{ 255 } byte-array>bit-array ] unit-test
 
 ! scrub-bits
-{
-    ?{ t t t f t t t t }
-} [
+{ t } [
     \ effects:<effect> word>gc-info scrub-bits
+    {
+        ?{ t t t f t t t t } ! 64-bit
+        ?{ t t t f f f f f t t t t } ! 32-bit
+    } member?
 ] unit-test
 
 {



! One of the few words that has derived roots.
{
    S{ gc-info f 0 2 2 2 6 7 6 }
} [
    \ llvm.types:resolve-types word>gc-info
] unit-test

USING: bit-arrays classes.struct sequences
tools.gc-decode tools.test vm ;
QUALIFIED: effects
QUALIFIED: llvm.types
QUALIFIED: unix.process
