-USING: bit-arrays classes.struct tools.gc-decode tools.test vm ;
+USING: bit-arrays classes.struct sequences
+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 t t f t t t t }
} [
    \ effects:<effect> word>gc-info scrub-bits
] unit-test

{



! One of the few words that has derived roots.
{ 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
