assert-positive ( n -- n )

Vocabulary

math

Inputs

n

an object

Outputs

n

an object

Definition

USING: kernel ;

IN: math

: assert-positive ( n -- n )
    dup 0 > [ positive-number-expected ] unless ; inline