Remove all existing numeric ACCEPTS methods in place of one new Numer…

…ic.ACCEPTS method. (Will replace a few of the older ones in a future patch, for efficiency's sake.)

src/core/Complex.pm

@@ -6,14 +6,6 @@ class Complex does Numeric is Cool {
         self.bless(*, :re($re), :im($im));
     }
 
-    multi method ACCEPTS(Complex $topic) {
-        ($topic.re ~~ $.re) && ($topic.im ~~ $.im);
-    }
-
-    multi method ACCEPTS($topic) {
-        ($topic.Num ~~ $.re) && ($.im == 0);
-    }
-
     method reals() {
         (self.re, self.im);
     }

src/core/Int.pm

@@ -14,14 +14,6 @@ our sub upgrade_to_num_if_needed($test) {
 }
 
 augment class Int does Real {
-    multi method ACCEPTS(Int $other) {
-        self == $other;
-    }
-
-    multi method ACCEPTS($other) {
-        self.Num.ACCEPTS($other);
-    }
-
     method Bridge() {
         self.Num;
     }

src/core/Num.pm

@@ -1,22 +1,6 @@
 class Complex { ... }
 
 augment class Num does Real {
-    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;
-        }
-    }
-
     method Bridge() {
         self;
     }

src/core/Numeric.pm

@@ -1,4 +1,14 @@
 role Numeric {
+    multi method ACCEPTS($other) {
+        my @a = self.reals;
+        my @b = (+$other).reals;
+        if @a.grep("NaN").elems > 0 {
+            @b.grep("NaN").elems > 0;
+        } else {
+            $other == self;
+        }
+    }
+
     method Numeric() {
         self;
     }

src/core/Rat.pm

@@ -21,10 +21,6 @@ class Rat is Cool does Real {
 
     multi method nude() { $.numerator, $.denominator; }
 
-    multi method ACCEPTS($other) {
-        self.Num.ACCEPTS($other);
-    }
-
     multi method perl() { "$!numerator/$!denominator"; }
 
     method Bridge() {