insert-replaces ( from to -- )

Vocabulary

compiler.cfg.stacks.finalize

Inputs

from	an object
to	an object

Outputs

None

Definition

USING: accessors compiler.cfg.instructions kernel math ;

IN: compiler.cfg.stacks.finalize

: insert-replaces ( from to -- )
    [ inserting-replaces ] keep
    [ dup n>> 0 < [ 2drop ] [ ##replace, ] if ] each-insertion ;