develooper Front page | perl.cvs.parrot | Postings from January 2009

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

From:
jonathan
Date:
January 6, 2009 13:58
Subject:
[svn:parrot] r35083 - branches/rvar/languages/perl6/src/parser
Message ID:
20090106215819.A0811CB9F9@x12.develooper.com
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;



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