 
 
 ! One of the few words that has derived roots.
-{
-    S{ gc-info f 0 2 2 2 6 7 6 }
-} [
+{ t } [
     \ llvm.types:resolve-types word>gc-info
+    {
+        S{ gc-info f 0 2 2 1 6 7 6 } ! 64-bit
+        S{ gc-info f 0 2 2 1 10 11 6 } ! 32-bit
+    } member?
 ] unit-test

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

{ ?{ t t t t t t t t } } [ B{ 255 } byte-array>bit-array ] unit-test

! scrub-bits
{ 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

{
