From dc293ee88c8d0f0b5704fbef996a39edd4101374 Mon Sep 17 00:00:00 2001
From: pmichaud <pmichaud@pobox.com>
Date: Wed, 9 Dec 2009 13:46:31 -0600
Subject: [PATCH] Update precedence of arglist parsing to %list_prefix (to
 match STD.pm update).

---
 src/Perl6/Grammar.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
index c08322c7167..edc790cfa1b 100644
--- a/src/Perl6/Grammar.pm
+++ b/src/Perl6/Grammar.pm
@@ -747,7 +747,7 @@ token arglist {
     <.ws> 
     [ 
     | <?stdstopper>
-    | <EXPR('f=')>
+    | <EXPR('e=')>
     | <?>
     ]
 }
@@ -846,7 +846,8 @@ INIT {
     Perl6::Grammar.O(':prec<h=>, :assoc<unary>', '%loose_unary');
     Perl6::Grammar.O(':prec<g=>, :assoc<list>, :nextterm<nulltermish>',  '%comma');
     Perl6::Grammar.O(':prec<f=>, :assoc<list>',  '%list_infix');
-    Perl6::Grammar.O(':prec<e=>, :assoc<right>', '%list_assignment');
+    Perl6::Grammar.O(':prec<e=>, :assoc<right>', '%list_assignment');   # XXX
+    Perl6::Grammar.O(':prec<e=>, :assoc<right>', '%list_prefix');
     Perl6::Grammar.O(':prec<d=>, :assoc<left>',  '%loose_and');
     Perl6::Grammar.O(':prec<c=>, :assoc<left>',  '%loose_or');
 }