Skip to content
Permalink
Browse files

Clean up debug leftovers

  • Loading branch information...
vrurg committed Feb 22, 2019
1 parent 9b65b33 commit 9c6fa1e74222b501554a2b59e113d66f4e11f50f
Showing with 1 addition and 5 deletions.
  1. +1 −5 src/Perl6/Metamodel/CurriedRoleHOW.nqp
@@ -80,15 +80,11 @@ class Perl6::Metamodel::CurriedRoleHOW
}
my $candidate := $!curried_role.HOW.select_candidate($!curried_role, @pos_args, %!named_args);
my $type_env;
my $error;
try {
my $body_block := nqp::decont($candidate.HOW.body_block($candidate));
my @result := $candidate.HOW.body_block($candidate)(|@pos_args, |%!named_args);
$type_env := @result[1];
}
my @r := $candidate.HOW.roles($candidate, :!transitive);
for @r {
my $role := $_;
for $candidate.HOW.roles($candidate, :!transitive) -> $role {
if nqp::can($_.HOW, 'curried_role') && $_.HOW.archetypes.generic && $type_env {
$role := $_.HOW.instantiate_generic($_, $type_env);
}

0 comments on commit 9c6fa1e

Please sign in to comment.
You can’t perform that action at this time.