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

Author: bernhard
Date: Tue Jan 20 05:52:30 2009
New Revision: 35803

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

Log:
[Pipp] Eliminate $methods_block

Modified: trunk/languages/pipp/src/pct/actions.pm
==============================================================================
--- trunk/languages/pipp/src/pct/actions.pm	(original)
+++ trunk/languages/pipp/src/pct/actions.pm	Tue Jan 20 05:52:30 2009
@@ -708,13 +708,11 @@
             $block.push( $($_) );
         }
 
-        my $methods_block := PAST::Block.new(:blocktype('immediate'));
-
         # declare the attributes
         for $<class_member_definition> {
             if $_<static> {
                 my $member_name := ~$_<var_name><ident>;
-                $methods_block.symbol(
+                $block.symbol(
                     $member_name,
                     :scope('attribute'),
                     :default( $( $_<literal> ) )
@@ -747,7 +745,7 @@
                 );
 
                 # add accessors for the attribute
-                $methods_block.push(
+                $block.push(
                     PAST::Block.new(
                         :blocktype('declaration'),
                         :name(~$_<var_name><ident>),
@@ -791,11 +789,9 @@
 
         # add the methods
         for $<class_method_definition> {
-            $methods_block.push( $($_) );
+            $block.push( $($_) );
         }
 
-        $block.push( $methods_block );
-
         $?CLASS := '';
 
         make $block;