emit-<displaced-alien> ( block node -- block' )

Vocabulary

compiler.cfg.intrinsics.alien

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.tree.propagation.info kernel
sequences ;

IN: compiler.cfg.intrinsics.alien

: emit-<displaced-alien> ( block node -- block' )
    dup emit-<displaced-alien>? [
        [
            node-input-infos second class>>
            ^^box-displaced-alien
        ] curry binary-op
    ] [ emit-primitive ] if ;