Changeset 11731

Timestamp:

04/04/09 22:22:06 (14 years ago)

Author:

ehuelsmann

Message:

Share code already abstracted out elsewhere (use OverUnderFlowCheck?()).

File:

• trunk/abcl/src/org/armedbear/lisp/MathFunctions.java (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/MathFunctions.java

@@ -511 +511 @@
             if (arg instanceof DoubleFloat) {
                 double d = Math.pow(Math.E, ((DoubleFloat)arg).value);
-                if (TRAP_OVERFLOW && Double.isInfinite(d))
-                    return error(new FloatingPointOverflow(NIL));
-                if (d == 0 && TRAP_UNDERFLOW)
-                    return error(new FloatingPointUnderflow(NIL));
-                return new DoubleFloat(d);
+                return OverUnderFlowCheck(new DoubleFloat(d));
             } else {
                 float f = (float) Math.pow(Math.E, SingleFloat.coerceToFloat(arg).value);
-                if (TRAP_OVERFLOW && Float.isInfinite(f))
-                    return error(new FloatingPointOverflow(NIL));
-                if (f == 0 && TRAP_UNDERFLOW)
-                    return error(new FloatingPointUnderflow(NIL));
-                return new SingleFloat(f);
+                return OverUnderFlowCheck(new SingleFloat(f));
             }
         }