Reimplement infix:<div> to use pir::fdiv. tylercurtis++.

rakudo · Jul 23, 2010 · bc3e181 · bc3e181
1 parent d1cd713
commit bc3e181
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/src/core/Int.pm b/src/core/Int.pm
@@ -48,11 +48,7 @@ our multi sub infix:<*>(Int $a, Int $b) {
 }
 
 our multi sub infix:<div>(Int $a, Int $b) {
-    my $result = pir::box__PI(pir::div__III($a, $b));
-    if ($a * $b).sign < 0 && $result * $b != $a {
-        $result--;
-    }
-    $result;
+    upgrade_to_num_if_needed(pir::fdiv__NNN($a, $b));
 }
 
 our multi sub infix:<%>(Int $a, Int $b) {