emit-callback-body ( block nodes -- block' )
CFG node emitter for alien nodes

Next:

emit-callback-return ( block params -- )

Vocabulary
compiler.cfg.builder.alien

Inputs

block	a basic-block
nodes	an alien-node-params

Outputs

block'

a basic-block

Word description
Emits the nodes that forms the body of the alien callback.

Definition

USING: compiler.cfg.builder compiler.tree kernel sequences ;

IN: compiler.cfg.builder.alien

: emit-callback-body ( block nodes -- block' )
    dup last #return? t assert= but-last emit-nodes ;