[svn:parrot] r34541 - branches/rvar/languages/perl6/src/parser

[pmichaud]

Author: pmichaud
Date: Sun Dec 28 19:58:53 2008
New Revision: 34541

Modified:
   branches/rvar/languages/perl6/src/parser/actions.pm

Log:
[rakudo]:  Restore .arity on signatured blocks.


Modified: branches/rvar/languages/perl6/src/parser/actions.pm
==============================================================================
--- branches/rvar/languages/perl6/src/parser/actions.pm (original)
+++ branches/rvar/languages/perl6/src/parser/actions.pm Sun Dec 28 19:58:53 2008
@@ -935,9 +935,10 @@
         );
 
         ##  loop through parameters of signature
-        my $i   := 0;
-        my $n   := $<parameter> ?? +@($<parameter>) !! 0;
-        while $i < $n {
+        my $arity := $<parameter> ?? +@($<parameter>) !! 0;
+        $?SIGNATURE_BLOCK.arity($arity);
+        my $i     := 0;
+        while $i < $arity {
             my $param_past := $( $<parameter>[$i] );
             my $name       := $param_past.name();
             my $symbol     := $?SIGNATURE_BLOCK.symbol($name);