bignum/f ( m n -- f )

Vocabulary

math.integers.private

Inputs

m	an object
n	an object

Outputs

f

an object

Definition

USING: kernel math ;

IN: math.integers.private

: bignum/f ( m n -- f )
    [ [ abs ] bi@ /f-abs ] [ [ 0 < ] bi@ xor ] 2bi [ neg ] when
    ; inline