More Complex versions of infix:<**>.

rakudo · Feb 15, 2010 · 3d02e7c · 3d02e7c
1 parent 07e96ba
commit 3d02e7c
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/src/core/Complex.pm b/src/core/Complex.pm
@@ -320,9 +320,13 @@ multi sub prefix:<->(Complex $a) {
     Complex.new(-$a.re, -$a.im);
 }
 
-#multi sub infix:<**>(Complex $a, $b) is default {
-#    ($a.log * $b).exp;
-#}
+multi sub infix:<**>(Complex $a, Complex $b) {
+   ($a.log * $b).exp;
+}
+
+multi sub infix:<**>(Complex $a, $b) {
+   ($a.log * $b).exp;
+}
 
 multi sub infix:<**>($a, Complex $b) {
     ($a.log * $b).exp;