(diff-variable) ( diff variable vars -- diff' )

Vocabulary

stack-checker.row-polymorphism

Inputs

diff	an object
variable	an object
vars	an object

Outputs

diff'

an object

Definition

USING: assocs kernel math ;

IN: stack-checker.row-polymorphism

: (diff-variable) ( diff variable vars -- diff' )
    [ key? ] [ [ at - ] 2curry ] [ [ set-at 0 ] 2curry ] 2tri if
    ;