set-fp-env ( exception-flags fp-traps rounding-mode denormal-mode -- )

Vocabulary

math.floats.env.private

Inputs

exception-flags	an object
fp-traps	an object
rounding-mode	an object
denormal-mode	an object

Outputs

None

Definition

USING: combinators generalizations kernel ;

IN: math.floats.env.private

: set-fp-env
    ( exception-flags fp-traps rounding-mode denormal-mode -- )
    [
        {
            [ [ (set-exception-flags) ] when* ]
            [ [ (set-fp-traps) ] when* ]
            [ [ (set-rounding-mode) ] when* ]
            [ [ (set-denormal-mode) ] when* ]
        } spread
    ] 4 ncurry change-fp-env-registers ;