Changeset 8736

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)
• t/operators/arith.t (modified) (2 diffs)

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

t/operators/arith.t

@@ -4 +4 @@
 use Test;
 
-plan 185;
+plan 186;
 
 my $five = abs(-5);
@@ -312 +312 @@
 is Inf*Inf/Inf, NaN;
 is Inf**0, 1;
+is 0**0, 1;
 is 0**Inf, 0;