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

[tene]

Author: tene
Date: Sun May  4 20:17:57 2008
New Revision: 27324

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

Log:
Allow trailing commas in rakudo.
This brings the number of passing subtests in t/spec to 666 for me.


Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Sun May  4 20:17:57 2008
@@ -1689,7 +1689,7 @@
             :node($/)
         );
         for @($/) {
-            $past.push( $($_) );
+            unless +$_.from() == +$_.to() { $past.push( $($_) ) };
         }
 
         # If it's an assignment or binding, we may need to emit a type-check.

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    Sun May  4 20:17:57 2008
@@ -159,6 +159,7 @@
 ## comma
 proto infix:<,> is precedence('g=')
     is assoc('list')
+    is nullterm
     { ... }
 
 ## list infix