Add Real.ACCEPTS.

rakudo · Jun 21, 2010 · b98d7fa · b98d7fa
1 parent 88210a9
commit b98d7fa
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/src/core/Numeric.pm b/src/core/Numeric.pm
@@ -1,5 +1,5 @@
 role Numeric {
-    multi method ACCEPTS($other) {
+    method ACCEPTS($other) {
         my @a = self.reals;
         my @b = (+$other).reals;
         if @a.grep("NaN").elems > 0 {

diff --git a/src/core/Real.pm b/src/core/Real.pm
@@ -1,6 +1,14 @@
 class Complex { ... }
 
 role Real does Numeric {
+    method ACCEPTS($other) {
+        if self eq "NaN" {
+            (+$other).reals.grep("NaN").elems > 0;
+        } else {
+            $other == self;
+        }
+    }
+
     method Bridge() {
         fail "Bridge must be defined for the Real type " ~ self.WHAT;
     }