emit-special-object ( block node -- block' )

Vocabulary

compiler.cfg.intrinsics.misc

Inputs

block	an object
node	an object

Outputs

block'

an object

Definition

USING: accessors compiler.cfg.builder.blocks compiler.cfg.hats
compiler.cfg.stacks compiler.constants
compiler.tree.propagation.info kernel sequences ;

IN: compiler.cfg.intrinsics.misc

: emit-special-object ( block node -- block' )
    [ node-input-infos first literal>> ]
    [ ds-drop vm-special-object-offset ^^vm-field ds-push ]
    [ emit-primitive ] ?if ;