must-be-positive ( x -- x )


Vocabulary
gml.coremath

Inputs
xan object


Outputs
xan object


Definition
USING: kernel math ;

IN: gml.coremath

: must-be-positive ( x -- x )
dup 0 < [ "Domain error" throw ] when ; inline