emit-base-table ( alist longest -- )

Vocabulary

compiler.codegen.gc-maps

Inputs

alist	an object
longest	an object

Outputs

None

Definition

USING: accessors arrays assocs kernel ;

IN: compiler.codegen.gc-maps

: emit-base-table ( alist longest -- )
    -1 <array> <enumerated> swap assoc-union! seq>> emit-uints ;