Add Rat.prefix<->.

Signed-off-by: Moritz Lenz <moritz@faui2k3.org>
rakudo · Sep 2, 2009 · 47a6ae6 · 47a6ae6
1 parent c6d5941
commit 47a6ae6
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/setting/Rat.pm b/src/setting/Rat.pm
@@ -58,6 +58,10 @@ multi sub infix:<->(Int $a, Rat $b) {
     Rat.new($a * $b.denominator - $b.numerator, $b.denominator);
 }
 
+multi sub prefix:<->(Rat $a) {
+    Rat.new(-$a.numerator, $a.denominator);
+}
+
 multi sub infix:<*>(Rat $a, Rat $b) {
     Rat.new($a.numerator * $b.numerator, $a.denominator * $b.denominator);
 }