?neg ( n/f -- -n/f )

Vocabulary

math.parser.private

Inputs

n/f

an object

Outputs

-n/f

an object

Definition

USING: combinators kernel math ;

IN: math.parser.private

: ?neg ( n/f -- -n/f )
    [
        {
            { [ dup bignum? ] [ bignum-?neg ] }
            { [ dup fp-nan? ] [ fp-?neg ] }
            [ neg ]
        } cond
    ] [ f ] if* ; inline