Fix relational operators for (Int,Rat).

rakudo · Jul 18, 2012 · 85177c8 · 85177c8
1 parent 574a8fa
commit 85177c8
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/core/Rat.pm b/src/core/Rat.pm
@@ -180,7 +180,7 @@ multi sub infix:«<»(Rational:D \$a, Int:D \$b) {
     $a.numerator  < $b * $a.denominator
 }
 multi sub infix:«<»(Int:D \$a, Rational:D \$b) {
-    $a * $b.denominator < $b.numerator * $a
+    $a * $b.denominator < $b.numerator
 }
 
 multi sub infix:«<=»(Rational:D \$a, Rational:D \$b) {
@@ -190,7 +190,7 @@ multi sub infix:«<=»(Rational:D \$a, Int:D \$b) {
     $a.numerator  <= $b * $a.denominator
 }
 multi sub infix:«<=»(Int:D \$a, Rational:D \$b) {
-    $a * $b.denominator <= $b.numerator * $a
+    $a * $b.denominator <= $b.numerator
 }
 
 multi sub infix:«>»(Rational:D \$a, Rational:D \$b) {
@@ -200,7 +200,7 @@ multi sub infix:«>»(Rational:D \$a, Int:D \$b) {
     $a.numerator  > $b * $a.denominator
 }
 multi sub infix:«>»(Int:D \$a, Rational:D \$b) {
-    $a * $b.denominator > $b.numerator * $a
+    $a * $b.denominator > $b.numerator
 }
 
 multi sub infix:«>=»(Rational:D \$a, Rational:D \$b) {
@@ -210,7 +210,7 @@ multi sub infix:«>=»(Rational:D \$a, Int:D \$b) {
     $a.numerator  >= $b * $a.denominator
 }
 multi sub infix:«>=»(Int:D \$a, Rational:D \$b) {
-    $a * $b.denominator >= $b.numerator * $a
+    $a * $b.denominator >= $b.numerator
 }
 
 multi sub infix:«<=>»(Rational:D \$a, Rational:D \$b) {