[common] Replace explicit multi-dispatcher ops with a proto with a pl…

…ain body of *.
jnthn · Oct 30, 2010 · 413bae8 · 413bae8
1 parent cac2fa6
commit 413bae8
Showing 1 changed file with 7 additions and 21 deletions.
diff --git a/common/NQP/NQPSetting.pm b/common/NQP/NQPSetting.pm
@@ -151,19 +151,15 @@ knowhow NQPCode is repr('RakudoCodeRef') {
 
 ## XXX Need coercive Any fallbacks too.
 
-proto sub &infix:<==>($x, $y) {
-    nqp::multi_dispatch_over_lexical_candidates();
-}
+proto sub &infix:<==>($x, $y) { * }
 multi sub &infix:<==>(NQPInt $x, NQPInt $y) {
     nqp::equal_ints($x, $y)
 }
 multi sub &infix:<==>(NQPNum $x, NQPNum $y) {
     nqp::equal_nums($x, $y)
 }
 
-proto sub &infix:<!=>($x, $y) {
-    nqp::multi_dispatch_over_lexical_candidates();
-}
+proto sub &infix:<!=>($x, $y) { * }
 multi sub &infix:<!=>(NQPInt $x, NQPInt $y) {
     nqp::logical_not_int(nqp::equal_ints($x, $y))
 }
@@ -199,37 +195,27 @@ sub &prefix:<+>($x) {
     $x.Numeric
 }
 
-proto sub &infix:<+>($x, $y) {
-    nqp::multi_dispatch_over_lexical_candidates();
-}
+proto sub &infix:<+>($x, $y) { * }
 multi sub &infix:<+>(NQPInt $x, NQPInt $y) {
     nqp::add_int($x, $y);
 }
 
-proto sub &infix:<->($x, $y) {
-    nqp::multi_dispatch_over_lexical_candidates();
-}
+proto sub &infix:<->($x, $y) { * }
 multi sub &infix:<->(NQPInt $x, NQPInt $y) {
     nqp::sub_int($x, $y);
 }
 
-proto sub &infix:<*>($x, $y) {
-    nqp::multi_dispatch_over_lexical_candidates();
-}
+proto sub &infix:<*>($x, $y) { * }
 multi sub &infix:<*>(NQPInt $x, NQPInt $y) {
     nqp::mul_int($x, $y);
 }
 
-proto sub &infix:</>($x, $y) {
-    nqp::multi_dispatch_over_lexical_candidates();
-}
+proto sub &infix:</>($x, $y) { * }
 multi sub &infix:</>(NQPInt $x, NQPInt $y) {
     nqp::div_int($x, $y);
 }
 
-proto sub &infix:<%>($x, $y) {
-    nqp::multi_dispatch_over_lexical_candidates();
-}
+proto sub &infix:<%>($x, $y) { * }
 multi sub &infix:<%>(NQPInt $x, NQPInt $y) {
     nqp::mod_int($x, $y);
 }