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
    [ dangerous-insn? ] [ drop state>clears ] [ 2drop { } ] 2if
    ;