adjust-variable ( diff var vars -- ) (original) (raw)

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