Restore the old, working definition of infix:</>($a, Complex $b).

rakudo · Feb 12, 2010 · c8164f1 · c8164f1
1 parent ecd6840
commit c8164f1
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/src/core/Complex.pm b/src/core/Complex.pm
@@ -305,9 +305,7 @@ multi sub infix:</>(Complex $a, $b) {
 }
 
 multi sub infix:</>($a, Complex $b) {
-    my $d = $b.re * $b.re + $b.im * $b.im;
-    Complex.new(($a * $b.re) / $d,
-                ($a * $b.im) / $d);
+    Complex.new($a, 0) / $b;
 }
 
 multi sub postfix:<i>($x) {