[svn:parrot] r33217 - trunk/languages/perl6/src/parser

[jonathan]

Author: jonathan
Date: Wed Nov 26 05:34:59 2008
New Revision: 33217

Modified:
   trunk/languages/perl6/src/parser/actions.pm

Log:
[rakudo] Fix bug in enum code generation. When adding a vtable method, you need 
to mark it anon too, otherwise it'll also appear as a normal method.

Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Wed Nov 26 05:34:59 2008
@@ -734,6 +734,10 @@
             PAST::Val.new(
                 :value(1),
                 :named( PAST::Val.new( :value('vtable') ) )
+            ),
+            PAST::Val.new(
+                :value(1),
+                :named( PAST::Val.new( :value('anon') ) )
             )
         ));
         $class_past.push(PAST::Op.new(
@@ -759,6 +763,10 @@
             PAST::Val.new(
                 :value(1),
                 :named( PAST::Val.new( :value('vtable') ) )
+            ),
+            PAST::Val.new(
+                :value(1),
+                :named( PAST::Val.new( :value('anon') ) )
             )
         ));
         $class_past.push(PAST::Op.new(
@@ -784,6 +792,10 @@
             PAST::Val.new(
                 :value(1),
                 :named( PAST::Val.new( :value('vtable') ) )
+            ),
+            PAST::Val.new(
+                :value(1),
+                :named( PAST::Val.new( :value('anon') ) )
             )
         ));
         $class_past.push(PAST::Op.new(
@@ -809,6 +821,10 @@
             PAST::Val.new(
                 :value(1),
                 :named( PAST::Val.new( :value('vtable') ) )
+            ),
+            PAST::Val.new(
+                :value(1),
+                :named( PAST::Val.new( :value('anon') ) )
             )
         ));