diff --git a/common/NQP/NQPSetting.pm b/common/NQP/NQPSetting.pm index c274167..44887ac 100644 --- a/common/NQP/NQPSetting.pm +++ b/common/NQP/NQPSetting.pm @@ -151,9 +151,7 @@ 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) } @@ -161,9 +159,7 @@ 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); }