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

[pmichaud]

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;
 }