store-height-changes ( #shuffle -- )

Vocabulary

compiler.cfg.builder

Inputs

#shuffle

an object

Outputs

None

Definition

USING: accessors compiler.cfg.registers
compiler.cfg.stacks.local kernel sequences ;

IN: compiler.cfg.builder

: store-height-changes ( #shuffle -- )
    height-changes
    { ds-loc rs-loc } [ new swap >>n inc-stack ] 2each ;