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

[jonathan]

Author: jonathan
Date: Tue Dec  9 15:12:37 2008
New Revision: 33735

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

Log:
[rakudo] infix:X,X is just infix:X.

Modified: trunk/languages/perl6/src/parser/grammar-oper.pg
==============================================================================
--- trunk/languages/perl6/src/parser/grammar-oper.pg    (original)
+++ trunk/languages/perl6/src/parser/grammar-oper.pg    Tue Dec  9 15:12:37 2008
@@ -158,7 +158,11 @@
 proto infix:<X> is precedence('f=')
     is assoc('list')
     { ... }
-proto infix:<Z> is precedence('f=')
+proto infix:<X,X> is equiv(infix:<X>)
+    is assoc('list')
+    is subname('infix:X')
+    { ... }
+proto infix:<Z> is equiv(infix:<X>)
     is assoc('list')
     { ... }