From 6d328be69b66e97498b53a22937e1e674a2b11bf Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Sat, 12 Sep 2009 18:13:25 -0500 Subject: [PATCH] all-fp-exceptions constant --- basis/math/floats/env/env.factor | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/basis/math/floats/env/env.factor b/basis/math/floats/env/env.factor index 6a8110c4c1..91419c1fdf 100644 --- a/basis/math/floats/env/env.factor +++ b/basis/math/floats/env/env.factor @@ -18,6 +18,15 @@ UNION: fp-exception +fp-zero-divide+ +fp-inexact+ ; +CONSTANT: all-fp-exceptions + { + +fp-invalid-operation+ + +fp-overflow+ + +fp-underflow+ + +fp-zero-divide+ + +fp-inexact+ + } + SINGLETONS: +round-nearest+ +round-down+