[svn:parrot] r27397 - trunk/languages/perl6/src/parser

[pmichaud]

Author: pmichaud
Date: Fri May  9 12:43:37 2008
New Revision: 27397

Modified:
   trunk/languages/perl6/src/parser/grammar.pg

Log:
[rakudo]:
* Update fatarrow parsing, so that foo(a=>1, b=>2) now parses
  and compiles properly.


Modified: trunk/languages/perl6/src/parser/grammar.pg
==============================================================================
--- trunk/languages/perl6/src/parser/grammar.pg (original)
+++ trunk/languages/perl6/src/parser/grammar.pg Fri May  9 12:43:37 2008
@@ -717,7 +717,7 @@
 }
 
 token fatarrow {
-    <key=ident> \h* '=>' <val=EXPR> # XXX should be EXPR(%item_assignment)
+    <key=ident> \h* '=>' <val=EXPR: 'i='>        # EXPR(%item_assignment)
     {*}
 }