infinity? ( double -- ? )

Vocabulary
math.floating-point

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&& ;