Default parameter type should be passed on to sub-signatures.

rakudo · Jul 4, 2010 · c4b7cf4 · c4b7cf4
1 parent 4be0c42
commit c4b7cf4
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Perl6/Compiler/Signature.pm b/src/Perl6/Compiler/Signature.pm
@@ -326,6 +326,7 @@ method ast($low_level?) {
         my $sub_sig := $null_reg;
         if pir::defined__IP($_.sub_signature) {
             $sub_sig := PAST::Stmts.new();
+            $_.sub_signature.set_default_parameter_type(self.get_default_parameter_type);
             $sub_sig.push( $_.sub_signature.ast(1) );
             $sub_sig.push( PAST::Var.new( :name('signature'), :scope('register') ) );
         }