Tweak Real.atan2 and Num.atan2 so they can handle $x's which are not …

…of the ideal type.
rakudo · Jul 9, 2010 · e58b166 · e58b166
1 parent 8978801
commit e58b166
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/core/Num.pm b/src/core/Num.pm
@@ -171,8 +171,8 @@ augment class Num does Real {
         (1 / $x).atanh($base);
     }
 
-    method atan2(Num $y: Num $x = 1, $base = Radians) {
-        pir::atan__NNn($y, $x).from-radians($base);
+    method atan2(Num $y: $x = 1, $base = Radians) {
+        pir::atan__NNn($y, $x.Numeric.Num).from-radians($base);
     }
 }
 

diff --git a/src/core/Real.pm b/src/core/Real.pm
@@ -192,8 +192,8 @@ role Real does Numeric {
         $x.Bridge.acotanh($base);
     }
 
-    method atan2(Real $y: Real $x = 1, $base = Radians) {
-        $y.Bridge.atan2($x.Bridge, $base);
+    method atan2(Real $y: $x = 1, $base = Radians) {
+        $y.Bridge.atan2($x, $base);
     }
 }