Update precedence of arglist parsing to %list_prefix (to match STD.pm…

… update).
rakudo · Dec 9, 2009 · dc293ee · dc293ee
1 parent 607a650
commit dc293ee
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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');
 }