USING: accessors bit-arrays combinators make namespaces
sequences ;

IN: compiler.codegen.gc-maps

: emit-gc-info-bitmaps
( -- scrub-d-count scrub-r-count gc-root-count )
[
gc-maps get {
[ [ scrub-d>> ] map emit-scrub ]
[ [ scrub-r>> ] map emit-scrub ]
[ [ gc-root-offsets ] map emit-gc-roots ]
} cleave
] ?{ } make underlying>> % ;