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

Timestamp:

01/17/06 16:26:24 (3 years ago)

Author:

audreyt

Message:

* 1**Inf, 0**0 and Inf**0 is regularted to 1 in this release.

Pending p6l.

Files:

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

src/Pugs/Prim/Numeric.hs

@@ -58 +58 @@
     if num1 == (1 :: VNum) then return (VInt 1) else do
     num2 <- fromVal =<< fromVal' y
+    if num2 == (0 :: VNum) then return (VInt 1) else do
     case reverse $ show (num2 :: VNum) of
         ('0':'.':_) -> do