clearing-insns ( assoc insn -- insns' )

Vocabulary

compiler.cfg.stacks.clearing

Inputs

assoc	an object
insn	an object

Outputs

insns'

an object

Definition

USING: accessors assocs kernel ;

IN: compiler.cfg.stacks.clearing

: clearing-insns ( assoc insn -- insns' )
    [ insn#>> of ] keep 2dup dangerous-insn?
    [ drop state>clears ] [ 2drop { } ] if ;