make Rational a parametric role

hangs during setting compilation :(
rakudo · Nov 20, 2011 · 6853995 · 6853995
1 parent 7e239ac
commit 6853995
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/src/core/Rat.pm b/src/core/Rat.pm
@@ -1,4 +1,4 @@
-my class Rat does Rational { }
+my class Rat does Rational[Int, UInt64] { }
 multi prefix:<->(Rat \$a) {
     Rat.new(-$a.numerator, $a.denominator);
 }

diff --git a/src/core/Rational.pm b/src/core/Rational.pm
@@ -1,10 +1,10 @@
-my role Rational is Real {
-    has Int $.numerator;
-    has Int $.denominator;
+my role Rational[::NuT, ::DeT] is Real {
+    has NuT $.numerator;
+    has DeT $.denominator;
 
-    method new(Int \$nu = 0, Int \$de = 1) {
+    method new(NuT \$nu = 0, DeT \$de = 1) {
         my $new     := nqp::create(self);
-        my Int $gcd     := $nu gcd $de;
+        my $gcd     := $nu gcd $de;
         my $numerator   = $nu div $gcd;
         my $denominator = $de div $gcd;
         if $denominator < 0 {