Author: pmichaud
Date: Tue Jun 12 08:18:48 2007
New Revision: 18949
Modified:
trunk/runtime/parrot/library/PGE/Perl6Grammar.pir
Log:
[PGE]:
* Fix parsing of grammar argument in PGE::Perl6Grammar (use <name>
instead of <arg>).
Modified: trunk/runtime/parrot/library/PGE/Perl6Grammar.pir
==============================================================================
--- trunk/runtime/parrot/library/PGE/Perl6Grammar.pir (original)
+++ trunk/runtime/parrot/library/PGE/Perl6Grammar.pir Tue Jun 12 08:18:48 2007
@@ -106,7 +106,7 @@
p6regex($S0, 'grammar'=>'PGE::Perl6Grammar', 'name'=>'arg')
$S0 = <<' STMT_PARSE'
- $<cmd>:=(grammar) $<name>:=<arg> ';'?
+ $<cmd>:=(grammar) <name> ';'?
| $<cmd>:=(regex|token|rule)
$<name>:=<arg>
$<optable>:=(is optable)?
@@ -221,8 +221,7 @@
## get the grammar name
.local string name
- $P0 = stmt['name']
- name = $P0[0]
+ name = stmt['name']
## remove any trailing semicolon
$S0 = substr name, -1
