Special case ceiling / floor for NaN, Inf, and -Inf.

rakudo · May 14, 2010 · e988665 · e988665
1 parent f3998c4
commit e988665
Showing 1 changed file with 13 additions and 3 deletions.
diff --git a/src/core/Num.pm b/src/core/Num.pm
@@ -79,12 +79,22 @@ augment class Num does Real {
         ~self;
     }
 
-    method ceiling(Real $x:) {
-        pir::box__PI(pir::ceil__IN($x))
+    method ceiling(Num $x:) {
+        given $x {
+            when NaN { NaN }
+            when Inf { Inf }
+            when -Inf { -Inf }
+            pir::box__PI(pir::ceil__IN($x));
+        }
     }
 
     method floor(Real $x:) {
-        pir::box__PI(pir::floor__IN($x));
+        given $x {
+            when NaN { NaN }
+            when Inf { Inf }
+            when -Inf { -Inf }
+            pir::box__PI(pir::floor__IN($x));
+        }
     }
 
     method sqrt(Num $x:) {