[svn:parrot] r35058 - branches/rvar/languages/perl6/src/parser

[jonathan]

Author: jonathan
Date: Tue Jan  6 10:13:03 2009
New Revision: 35058

Modified:
   branches/rvar/languages/perl6/src/parser/actions.pm
   branches/rvar/languages/perl6/src/parser/grammar.pg

Log:
[rakudo] Use capture rather than substr for detecting ;;.

Modified: branches/rvar/languages/perl6/src/parser/actions.pm
==============================================================================
--- branches/rvar/languages/perl6/src/parser/actions.pm (original)
+++ branches/rvar/languages/perl6/src/parser/actions.pm Tue Jan  6 10:13:03 2009
@@ -969,7 +969,7 @@
             
$sigparam.push(PAST::Val.new(:value($readtype),:named('readtype')));
 
             
$sigparam.push(PAST::Val.new(:value($multi_inv),:named('multi_invocant')));
-            if substr($<param_sep>[$i], 0, 2) eq ';;' { $multi_inv := 0; }
+            if $<param_sep>[$i][0] eq ';;' { $multi_inv := 0; }
 
             $loadinit.push($sigparam);
             $i++;

Modified: branches/rvar/languages/perl6/src/parser/grammar.pg
==============================================================================
--- branches/rvar/languages/perl6/src/parser/grammar.pg (original)
+++ branches/rvar/languages/perl6/src/parser/grammar.pg Tue Jan  6 10:13:03 2009
@@ -426,7 +426,7 @@
     ':(' ~ ')' <signature> {*}
 }
 
-rule param_sep { [','|':'|';;'|';'] }
+rule param_sep { (','|':'|';;'|';') }
 
 token signature {
     {*} #= open