infinity? ( double -- ? )

Vocabulary

math.floating-point

Inputs

double

an object

Outputs

?

an object

Definition

USING: combinators.short-circuit kernel math math.bitwise ;

IN: math.floating-point

: infinity? ( double -- ? )
    double>bits {
        [ (double-exponent-bits) 11 on-bits = ]
        [ (double-mantissa-bits) 0 = ]
    } 1&& ;