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

[jonathan]

Author: jonathan
Date: Tue Jan  6 13:58:18 2009
New Revision: 35083

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

Log:
[rakudo] Restore marking of protos, which fixes S06-multi/proto.t.

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 Tue Jan  6 13:58:18 2009
@@ -532,6 +532,13 @@
                 )
             );
         }
+
+        # Protos also need the proto property setting on them.
+        if $<sym> eq 'proto' {
+            $past.loadinit().push(
+                PAST::Op.new(:inline('    setprop block, "proto", %0'), 1)
+            );
+        }
     }
 
     make $past;