check-number ( n -- )

Vocabulary

hamurabi.private

Inputs

n

an object

Outputs

None

Definition

USING: combinators.short-circuit io kernel math ;

IN: hamurabi.private

: check-number ( n -- )
    { [ f eq? ] [ 0 < ] [ fixnum? not ] } 1|| [
        "HAMURABI:  I CANNOT DO WHAT YOU WISH." print
        "GET YOURSELF ANOTHER STEWARD!!!!!" print "exit" throw
    ] when ;