with-fp-traps ( exceptions quot -- )
Controlling the floating-point environment

Prev:	fp-traps ( -- exceptions )
Next:	without-fp-traps ( quot -- )

Vocabulary
math.floats.env

Inputs

exceptions	a sequence of fp-exceptions
quot	a quotation

Outputs
None

Word description
Clears the floating-point exception flags and replaces the exception mask, enabling processor traps for the set of exception conditions specified in exceptions for the dynamic extent of quot. The original exception mask is restored on quot's completion.

See also
fp-traps, without-fp-traps, vm-error>exception-flags, vm-error-exception-flag?

Definition

USING: continuations math.floats.env.private ;

IN: math.floats.env

:: with-fp-traps ( exceptions quot -- )
    clear-fp-exception-flags fp-traps :> orig exceptions
    set-fp-traps quot [ orig set-fp-traps ] finally ; inline