Changeset 8710

Timestamp:

01/16/06 20:33:24 (3 years ago)

Author:

audreyt

Message:

* 1**Inf is now hardcoded to 1.

Files:

• src/Pugs/Prim/Numeric.hs (modified) (1 diff)
• t/operators/arith.t (modified) (1 diff)

src/Pugs/Prim/Numeric.hs

@@ -55 +55 @@
 op2Exp :: Val -> Val -> Eval Val
 op2Exp x y = do
+    num1 <- fromVal =<< fromVal' x
+    if num1 == (1 :: VNum) then return (VInt 1) else do
     num2 <- fromVal =<< fromVal' y
     case reverse $ show (num2 :: VNum) of

t/operators/arith.t

@@ -324 +324 @@
 is 0.9**Inf, 0,   "0.9**Inf converges towards 0";
 is 1.1**Inf, Inf, "1.1**Inf diverges towards Inf";
-is 1**Inf, 1 , :todo("1**Inf == 1");
+is 1**Inf, 1;
 
 #flunk("1**Inf is platform-specific -- it's 1 on OSX and NaN elsewhere", :todo);