Permalink
Browse files

Use NQP-based dispatcher for deferral also.

  • Loading branch information...
1 parent 19d9ae0 commit c9e3ae1ec73a5f0e7c560e1d5924170613033730 @jnthn jnthn committed Mar 15, 2013
Showing with 2 additions and 2 deletions.
  1. +1 −1 src/Perl6/Metamodel/Dispatchers.pm
  2. +1 −1 src/core/Routine.pm
@@ -78,7 +78,7 @@ class Perl6::Metamodel::MultiDispatcher is Perl6::Metamodel::BaseDispatcher {
my $args := $lexpad<call_sig>;
my $has_invocant := nqp::existskey($lexpad, 'self');
my $invocant := $has_invocant && $lexpad<self>;
- my @cands := pir::perl6_get_matching_multis__PPP($disp, $args);
+ my @cands := $disp.find_best_dispatchee($args, 1);
self.new(:candidates(@cands), :idx(1), :invocant($invocant),
:has_invocant($has_invocant))
}
View
@@ -37,7 +37,7 @@ my class Routine {
# Call this lexical sub to get rid of 'self' in the signature.
sub checker(|) {
my Mu $cap := pir::find_lex__Ps('call_sig');
- nqp::p6type(pir::perl6_get_matching_multis__PPP($disp, $cap))
+ nqp::p6type($disp.find_best_dispatchee($cap, 1))
}
checker(|$c);
}

0 comments on commit c9e3ae1

Please sign in to comment.