Permalink
Browse files

Add missing parameterize method.

Fixes bug with providing args to an imported parameteric role.
  • Loading branch information...
1 parent bd9bc6f commit c3f565deac297c6d81db35904d22d488eb1b4efe @jnthn jnthn committed Jan 11, 2013
Showing with 5 additions and 1 deletion.
  1. +0 −1 src/Perl6/Metamodel/ParametricRoleGroupHOW.pm
  2. +5 −0 src/Perl6/Metamodel/ParametricRoleHOW.pm
@@ -10,7 +10,6 @@
# group of those, and know how to specialize to a certain parameter
# list by multi-dispatching over the set of possibilities to pick
# a particular candidate.
-my $currier := Perl6::Metamodel::CurriedRoleHOW;
class Perl6::Metamodel::ParametricRoleGroupHOW
does Perl6::Metamodel::Naming
does Perl6::Metamodel::Stashing
@@ -1,4 +1,5 @@
my $concrete := Perl6::Metamodel::ConcreteRoleHOW;
+my $currier := Perl6::Metamodel::CurriedRoleHOW;
class Perl6::Metamodel::ParametricRoleHOW
does Perl6::Metamodel::Naming
does Perl6::Metamodel::Documenting
@@ -41,6 +42,10 @@ class Perl6::Metamodel::ParametricRoleHOW
self.add_stash($type);
}
+ method parameterize($obj, *@pos_args, *%named_args) {
+ $currier.new_type($obj, |@pos_args, |%named_args)
+ }
+
method set_body_block($obj, $block) {
$!body_block := $block
}

0 comments on commit c3f565d

Please sign in to comment.