change-fp-env-registers ( quot -- )

Vocabulary

math.floats.env.private

Inputs

quot

an object

Outputs

None

Definition

USING: kernel sequences ;

IN: math.floats.env.private

: change-fp-env-registers ( quot -- )
    (fp-env-registers) swap [ (set-fp-env-register) ] compose
    each ; inline