emit-tag ( -- )

Vocabulary

compiler.cfg.intrinsics.misc

Inputs

None

Outputs

None

Definition

USING: compiler.cfg.hats compiler.cfg.stacks layouts namespaces
;

IN: compiler.cfg.intrinsics.misc

: emit-tag ( -- )
    [ ^^tagged>integer tag-mask get ^^and-imm ] unary-op ;