define-math-inverse ( word quot1 quot2 -- )


Vocabulary
inverse

Inputs
wordan object
quot1an object
quot2an object


Outputs
None

Definition
USING: arrays kernel quotations words ;

IN: inverse

: define-math-inverse ( word quot1 quot2 -- )
pick 1quotation 3array "math-inverse" set-word-prop ;