must-be-positive ( x -- x )

Vocabulary

gml.coremath

Inputs

x

an object

Outputs

x

an object

Definition

USING: kernel math ;

IN: gml.coremath

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