/f-abs ( 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

: /f-abs ( m n -- f )
    over zero?
    [ nip zero? 0/0. 0.0 ? ] [
        [ drop 1/0. ] [
            pre-scale mantissa-and-guard
            [ round-to-nearest ] dip post-scale
        ] if-zero
    ] if ; inline