reset-incs ( height-state -- )

Vocabulary

compiler.cfg.stacks.local

Inputs

height-state

an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: compiler.cfg.stacks.local

: reset-incs ( height-state -- )
    dup ds-inc>> [ + ] curry change-ds-begin dup rs-inc>>
    [ + ] curry change-rs-begin 0 >>ds-inc 0 >>rs-inc drop ;