assert-negative ( n -- n )

Vocabulary

math

Inputs

n

an object

Outputs

n

an object

Definition

USING: kernel ;

IN: math

: assert-negative ( n -- n )
    dup 0 < [ negative-number-expected ] unless ; inline