fp-rounding-mode? ( 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-rounding-mode class.

Definition

USING: kernel ;

IN: math.floats.env

: fp-rounding-mode? ( object -- ? )
    dup +round-zero+?
    [ drop t ] [
        dup +round-up+?
        [ drop t ]
        [ dup +round-down+? [ drop t ] [ +round-nearest+? ] if ]
        if
    ] if ;