fp-exception? ( object -- ? )

Vocabulary

math.floats.env

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the fp-exception class.

Definition

USING: kernel ;

IN: math.floats.env

: fp-exception? ( object -- ? )
    dup +fp-inexact+?
    [ drop t ] [
        dup +fp-zero-divide+?
        [ drop t ] [
            dup +fp-underflow+?
            [ drop t ] [
                dup +fp-overflow+?
                [ drop t ] [ +fp-invalid-operation+? ] if
            ] if
        ] if
    ] if ;