develooper Front page | perl.cvs.parrot | Postings from December 2008

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

From:
pmichaud
Date:
December 28, 2008 19:59
Subject:
[svn:parrot] r34541 - branches/rvar/languages/perl6/src/parser
Message ID:
20081229035854.AE65DCB9FA@x12.develooper.com
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);



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About