emit-cleanup-allot ( block node -- block' )

Vocabulary

compiler.cfg.intrinsics.misc

Inputs

block	an object
node	an object

Outputs

block'

an object

Definition

USING: compiler.cfg.builder.blocks compiler.cfg.instructions
kernel ;

IN: compiler.cfg.intrinsics.misc

: emit-cleanup-allot ( block node -- block' )
    drop [ drop ##no-tco, ] emit-trivial-block ;