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

[svn:parrot] r35234 - branches/rvar2/languages/perl6/src/parser

From:
pmichaud
Date:
January 8, 2009 16:58
Subject:
[svn:parrot] r35234 - branches/rvar2/languages/perl6/src/parser
Message ID:
20090109005758.ADAD2CB9F9@x12.develooper.com
Author: pmichaud
Date: Thu Jan  8 16:57:57 2009
New Revision: 35234

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

Log:
[rakudo]:  Make pointy block parameters readonly again.


Modified: branches/rvar2/languages/perl6/src/parser/actions.pm
==============================================================================
--- branches/rvar2/languages/perl6/src/parser/actions.pm	(original)
+++ branches/rvar2/languages/perl6/src/parser/actions.pm	Thu Jan  8 16:57:57 2009
@@ -315,6 +315,12 @@
 
 method pblock($/) {
     my $block := $( $<block> );
+    ##  Add a call to !SIGNATURE_BIND to fixup params and do typechecks.
+    if $block<signature> {
+        $block[0].push(
+            PAST::Op.new( :pasttype('call'), :name('!SIGNATURE_BIND') )
+        );
+    }
     make $block;
 }
 



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