[svn:parrot] r32422 - trunk/languages/pipp/src/pct

[bernhard]

Author: bernhard
Date: Fri Nov  7 05:33:20 2008
New Revision: 32422

Modified:
   trunk/languages/pipp/src/pct/actions.pm

Log:
Pipp: set 'arity' for function definitions


Modified: trunk/languages/pipp/src/pct/actions.pm
==============================================================================
--- trunk/languages/pipp/src/pct/actions.pm     (original)
+++ trunk/languages/pipp/src/pct/actions.pm     Fri Nov  7 05:33:20 2008
@@ -353,6 +353,7 @@
                     :blocktype('declaration'),
                     :node($/)
                 );
+    my $arity := 0;
     for $<VAR_NAME> {
         my $param := $( $_ );
         $param.scope('parameter');
@@ -363,7 +364,9 @@
              :scope('lexical'),
              $param.name()
         );
+        $arity++;
     }
+    $past.arity( $arity );
 
     make $past;
 }