assure-constant ( constant -- quot )


Vocabulary
inverse

Inputs
constantan object


Outputs
quotan object


Definition
USING: kernel quotations words ;

IN: inverse

: assure-constant ( constant -- quot )
dup word? [ bad-math-inverse ] when 1quotation ;