fix comparison ops for Complex numbers

rakudo · Nov 26, 2011 · 2154ebb · 2154ebb
1 parent 4a4601d
commit 2154ebb
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 7 deletions.
diff --git a/src/core/Complex.pm b/src/core/Complex.pm
@@ -21,7 +21,7 @@ my class Complex is Numeric {
         self.re.isNaN || self.im.isNaN;
     }
 
-    method Real(Complex:D:) {
+    multi method Real(Complex:D:) {
         if $!im == 0 {
             $!re;
         } else {

diff --git a/src/core/Cool.pm b/src/core/Cool.pm
@@ -175,7 +175,7 @@ my class Cool {
         eval(self.Stringy, |%opts);
     }
 
-    method Real() { self.Numeric.Real }
+    multi method Real() { self.Numeric.Real }
     method Int()  { self.Numeric.Int }
     method Num()  { self.Numeric.Num }
     method Rat()  { self.Numeric.Rat }

diff --git a/src/core/Mu.pm b/src/core/Mu.pm
@@ -126,6 +126,11 @@ my class Mu {
         note 'Use of uninitialized value in numeric context';
         0
     }
+    proto method Real(|$) { * }
+    multi method Real(Mu:U:) {
+        note 'Use of uninitialized value in numeric context';
+        0
+    }
 
     proto method Str(|$) { * }
     multi method Str(Mu:U:) {

diff --git a/src/core/Numeric.pm b/src/core/Numeric.pm
@@ -213,7 +213,7 @@ multi infix:<**>(\$a, \$b)   { $a.Numeric ** $b.Numeric }
 ## relational operators
 
 proto infix:«<=>»(|$)        { * }
-multi infix:«<=>»(\$a, \$b)  { $a.Numeric <=> $b.Numeric }
+multi infix:«<=>»(\$a, \$b)  { $a.Real <=> $b.Real }
 
 proto infix:<==>($a?, $b?)   { * }
 multi infix:<==>($x?)        { Bool::True }
@@ -225,19 +225,19 @@ multi infix:<!=>(\$a, \$b)   { $a.Numeric != $b.Numeric }
 
 proto infix:«<»($a?, $b?)    { * }
 multi infix:«<»($x?)         { Bool::True }
-multi infix:«<»(\$a, \$b)    { $a.Numeric < $b.Numeric }
+multi infix:«<»(\$a, \$b)    { $a.Real < $b.Real }
 
 proto infix:«<=»($a?, $b?)   { * }
 multi infix:«<=»($x?)        { Bool::True }
-multi infix:«<=»(\$a, \$b)   { $a.Numeric <= $b.Numeric }
+multi infix:«<=»(\$a, \$b)   { $a.Real <= $b.Real }
 
 proto infix:«>»($a?, $b?)    { * }
 multi infix:«>»($x?)         { Bool::True }
-multi infix:«>»(\$a, \$b)    { $a.Numeric > $b.Numeric }
+multi infix:«>»(\$a, \$b)    { $a.Real > $b.Real }
 
 proto infix:«>=»($a?, $b?)   { * }
 multi infix:«>=»($x?)        { Bool::True }
-multi infix:«>=»(\$a, \$b)   { $a.Numeric >= $b.Numeric }
+multi infix:«>=»(\$a, \$b)   { $a.Real >= $b.Real }
 
 ## bitwise operators