remove-redundant-replaces ( replaces -- replaces' )

Vocabulary

compiler.cfg.stacks.local

Inputs

replaces

an object

Outputs

replaces'

an object

Definition

USING: assocs kernel ;

IN: compiler.cfg.stacks.local

: remove-redundant-replaces ( replaces -- replaces' )
    [ [ loc>vreg ] dip = ] assoc-reject ;