A few more native int operators. If anybody fancies doing the num one…

…s, dive in!
rakudo · Sep 29, 2011 · 1cb3f8d · 1cb3f8d
1 parent 1f0a570
commit 1cb3f8d
Showing 1 changed file with 24 additions and 0 deletions.
diff --git a/src/core/Int.pm b/src/core/Int.pm
@@ -91,18 +91,34 @@ multi infix:<+>(int $a, int $b) {
 multi infix:<->(Int \$a, Int \$b) {
     nqp::p6box_i(nqp::sub_i(nqp::unbox_i($a), nqp::unbox_i($b)))
 }
+multi infix:<->(int $a, int $b) {
+    nqp::want(nqp::p6box_i(nqp::sub_i($a, $b)),
+        'Ii', nqp::sub_i($a, $b))
+}
 
 multi infix:<*>(Int \$a, Int \$b) {
     nqp::p6box_i(nqp::mul_i(nqp::unbox_i($a), nqp::unbox_i($b)))
 }
+multi infix:<*>(int $a, int $b) {
+    nqp::want(nqp::p6box_i(nqp::mul_i($a, $b)),
+        'Ii', nqp::mul_i($a, $b))
+}
 
 multi infix:<div>(Int \$a, Int \$b) {
     nqp::p6box_i(nqp::div_i(nqp::unbox_i($a), nqp::unbox_i($b)))
 }
+multi infix:<div>(int $a, int $b) {
+    nqp::want(nqp::p6box_i(nqp::div_i($a, $b)),
+        'Ii', nqp::div_i($a, $b))
+}
 
 multi infix:<%>(Int \$a, Int \$b) {
     nqp::p6box_i(nqp::mod_i(nqp::unbox_i($a), nqp::unbox_i($b)))
 }
+multi infix:<%>(int $a, int $b) {
+    nqp::want(nqp::p6box_i(nqp::mod_i($a, $b)),
+        'Ii', nqp::mod_i($a, $b))
+}
 
 multi infix:<**>(Int \$a, Int \$b) {
     if $b >= 0 {
@@ -115,10 +131,18 @@ multi infix:<**>(Int \$a, Int \$b) {
 multi infix:<lcm>(Int:D \$a, Int:D \$b) {
     nqp::p6box_i(nqp::lcm_i(nqp::unbox_i($a), nqp::unbox_i($b)))
 }
+multi infix:<lcm>(int $a, int $b) {
+    nqp::want(nqp::p6box_i(nqp::lcm_i($a, $b)),
+        'Ii', nqp::lcm_i($a, $b))
+}
 
 multi infix:<gcd>(Int:D \$a, Int:D \$b) {
     nqp::p6box_i(nqp::gcd_i(nqp::unbox_i($a), nqp::unbox_i($b)))
 }
+multi infix:<gcd>(int $a, int $b) {
+    nqp::want(nqp::p6box_i(nqp::gcd_i($a, $b)),
+        'Ii', nqp::gcd_i($a, $b))
+}
 
 multi infix:<cmp>(Int:D \$a, Int:D \$b) {
     nqp::p6box_i(nqp::cmp_i(nqp::unbox_i($a), nqp::unbox_i($b)))