adjust-variable ( diff var vars -- )

Vocabulary

stack-checker.row-polymorphism

Inputs

diff	an object
var	an object
vars	an object

Outputs

None

Definition

USING: assocs kernel math ;

IN: stack-checker.row-polymorphism

: adjust-variable ( diff var vars -- )
    pick 0 >= [ at+ ] [ 3drop ] if ; inline