port some Num methods over from alpha

rakudo · Mar 12, 2010 · f28f3c7 · f28f3c7
1 parent e5d11fe
commit f28f3c7
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/src/core/Num.pm b/src/core/Num.pm
@@ -1,4 +1,19 @@
 augment class Num {
+    multi method ACCEPTS($other) {
+        if self eq 'NaN' {
+            $other eq 'NaN';
+        } else {
+            $other == self;
+        }
+    }
+    multi method ACCEPTS(::Complex $other) {
+        if self eq 'NaN' {
+            $other.re eq 'NaN' || $other.im eq 'NaN';
+        } else {
+            $other.im == 0 && $other.re == self;
+        }
+    }
+
     multi method Bool() {
         self != 0.0e0
     }