infix:<mod> should not coerce.

rakudo · Sep 7, 2013 · a13cec9 · a13cec9
1 parent aa657cc
commit a13cec9
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/core/Real.pm b/src/core/Real.pm
@@ -115,11 +115,10 @@ multi infix:«>=»(Real \a, Real \b)  { a.Bridge >= b.Bridge }
 multi prefix:<->(Real \a)            { -a.Bridge }
 
 # NOTE: According to the spec, infix:<mod> is "Not coercive, 
-# so fails on differing types."  This implemention ignores
-# that constraint.
+# so fails on differing types."  Thus no casts here.
 proto sub infix:<mod>($, $) {*}
 multi sub infix:<mod>(Real $a, Real $b) {
-    $a - ($a.Bridge.Int div $b.Bridge.Int) * $b;
+    $a - ($a div $b) * $b;
 }
 
 multi sub abs(Real \a) {