develooper Front page | perl.cvs.parrot | Postings from December 2008

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

From:
jonathan
Date:
December 9, 2008 15:12
Subject:
[svn:parrot] r33735 - trunk/languages/perl6/src/parser
Message ID:
20081209231237.CE0BACB9AF@x12.develooper.com
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')
     { ... }
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About