Skip to content

Commit

Permalink
Remove revert artifact
Browse files Browse the repository at this point in the history
  • Loading branch information
Altai-man committed May 1, 2020
1 parent 7fd0a25 commit f37213f
Showing 1 changed file with 0 additions and 15 deletions.
15 changes: 0 additions & 15 deletions src/Perl6/Metamodel/Dispatchers.nqp
Expand Up @@ -39,21 +39,6 @@ class Perl6::Metamodel::BaseDispatcher {
[$call, 0]
}

# By default we just set next call dispatcher to ourselves.
# Method must return value for $*NEXT-DISPATCHER
method set_call_dispatcher($call) {
return nqp::null() if self.is_wrapper_like && self.last_candidate && !$!next_dispatcher;
if (nqp::can($call, 'is_dispatcher') && $call.is_dispatcher)
|| (nqp::can($call, 'is_wrapped') && $call.is_wrapped)
{
self
}
else {
nqp::setdispatcherfor(self, $call);
nqp::null()
}
}

method call_with_args(*@pos, *%named) {
my @call := self.get_call;
if @call[1] {
Expand Down

0 comments on commit f37213f

Please sign in to comment.