smarter FatRat numification

rakudo · Feb 13, 2012 · 91c3326 · 91c3326
1 parent bd5adba
commit 91c3326
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 6 deletions.
diff --git a/src/core/Rat.pm b/src/core/Rat.pm
@@ -35,7 +35,10 @@ my role Rational is Real {
     method Num() {
         $!denominator == 0
           ?? ($!numerator < 0 ?? -$Inf !! $Inf)
-          !!  $!numerator.Num / $!denominator.Num
+          !! nqp::p6box_n(nqp::div_In(
+                nqp::p6decont($!numerator),
+                nqp::p6decont($!denominator)
+             ));
     }
     method Int() { $!numerator div $!denominator }
 
@@ -91,10 +94,9 @@ sub DIVIDE_NUMBERS(Int:D \$nu, Int:D \$de, $t1, $t2) {
         nqp::bindattr($r, Rat, '$!denominator', nqp::p6decont($denominator));
         $r;
     } else {
-        # TODO: be smarter here if both integers are big
-        nqp::p6box_n(nqp::div_n(
-                nqp::tonum_I(nqp::p6decont $numerator),
-                nqp::tonum_I(nqp::p6decont $denominator)
+        nqp::p6box_n(nqp::div_In(
+                nqp::p6decont($numerator),
+                nqp::p6decont($denominator)
             )
         );
     }

diff --git a/tools/build/NQP_REVISION b/tools/build/NQP_REVISION
@@ -1 +1 @@
-2012.01-9-gfd864b6
+2012.01-10-g7f521e3