Changeset 8710 for src/Pugs/Prim/Numeric.hs

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)

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