[svn:parrot] r39972 - trunk/runtime/parrot/library/PGE

[pmichaud at svn.parrot.org]

Author: pmichaud
Date: Fri Jul 10 05:14:13 2009
New Revision: 39972
URL: https://trac.parrot.org/parrot/changeset/39972

Log:
[pge]:  Fix duplicate identifier in Perl6Grammar bug (TT #772)
Patch courtesy bacek++ .

Modified:
   trunk/runtime/parrot/library/PGE/Perl6Grammar.pir

Modified: trunk/runtime/parrot/library/PGE/Perl6Grammar.pir
==============================================================================
--- trunk/runtime/parrot/library/PGE/Perl6Grammar.pir	Fri Jul 10 05:13:18 2009	(r39971)
+++ trunk/runtime/parrot/library/PGE/Perl6Grammar.pir	Fri Jul 10 05:14:13 2009	(r39972)
@@ -140,9 +140,9 @@
     .param pmc source
     .param pmc adverbs         :slurpy :named
 
-    .local pmc nstable, namespace
+    .local pmc nstable, ns
     nstable = new 'Hash'
-    namespace = new 'String'
+    ns = new 'String'
     $P0 = new 'Hash'
     $P1 = new 'CodeString'
     $P0['optable'] = $P1
@@ -165,7 +165,7 @@
     $S0 = match['cmd']
     concat $S0, '_stmt'
     $P0 = find_name $S0
-    $P0(match, namespace, nstable)
+    $P0(match, ns, nstable)
     goto stmt_loop
   stmt_end: