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

Vocabulary

math.floats.env.private

Inputs

None

Outputs

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

Definition

USING: combinators ;

IN: math.floats.env.private

: get-fp-env
    ( -- exception-flags fp-traps rounding-mode denormal-mode )
    fp-env-register {
        [ (get-exception-flags) ]
        [ (get-fp-traps) ]
        [ (get-rounding-mode) ]
        [ (get-denormal-mode) ]
    } cleave ;