Add missing parameterize method.

Fixes bug with providing args to an imported parameteric role.
rakudo · Jan 11, 2013 · c3f565d · c3f565d
1 parent bd9bc6f
commit c3f565d
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/Perl6/Metamodel/ParametricRoleGroupHOW.pm b/src/Perl6/Metamodel/ParametricRoleGroupHOW.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

diff --git a/src/Perl6/Metamodel/ParametricRoleHOW.pm b/src/Perl6/Metamodel/ParametricRoleHOW.pm
@@ -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
     }