Workaround for % bug.

This can surely be done more efficiently, but for now this works.
rakudo · Jul 12, 2013 · 0562424 · 0562424
1 parent 2eb3d1d
commit 0562424
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/core/Num.pm b/src/core/Num.pm
@@ -295,7 +295,13 @@ multi infix:</>(num $a, num $b) {
 }
 
 multi infix:<%>(Num:D \a, Num:D \b) {
+#?if jvm
+    # This can surely be done more efficiently, but this works.
+    a - floor(a / b) * b;
+#?endif
+#?if !jvm
     nqp::p6box_n(nqp::mod_n(nqp::unbox_n(a), nqp::unbox_n(b)))
+#?endif
 }
 multi infix:<%>(num $a, num $b) {
     nqp::mod_n($a, $b)