bignum-?neg ( n -- -n )

Vocabulary

math.parser.private

Inputs

n

an object

Outputs

-n

an object

Definition

USING: kernel layouts math math.private ;

IN: math.parser.private

: bignum-?neg ( n -- -n )
    dup first-bignum bignum=
    [ drop most-negative-fixnum ] [ neg ] if ;