Convert package_def to use <block> instead of <pblock>.

perl6 · Nov 8, 2009 · ee6743c · ee6743c
1 parent 5559916
commit ee6743c
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/NQP/Actions.pm b/src/NQP/Actions.pm
@@ -233,7 +233,7 @@ method package_declarator:sym<class>($/) {
 }
 
 method package_def($/) {
-    my $past := $<pblock> ?? $<pblock>.ast !! $<comp_unit>.ast;
+    my $past := $<block> ?? $<block>.ast !! $<comp_unit>.ast;
     $past.namespace( $<name><identifier> );
     $past.blocktype('immediate');
     make $past;

diff --git a/src/NQP/Grammar.pm b/src/NQP/Grammar.pm
@@ -208,7 +208,7 @@ rule package_def {
     [ 'is' <parent=name> ]? 
     [ 
     || ';' <comp_unit>
-    || <?[{]> <pblock>
+    || <?[{]> <block>
     || <.panic: 'Malformed package declaration'>
     ]
 }