fix infix:sym<,>

rakudo-p5 · Mar 24, 2013 · 5bfeb4a · 5bfeb4a
1 parent 85bbba6
commit 5bfeb4a
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/lib/Perl6/P5Grammar.pm b/lib/Perl6/P5Grammar.pm
@@ -3485,8 +3485,11 @@ grammar Perl6::P5Grammar is HLL::Grammar does STD5 {
         { <sym> <O('%assignment')> }
 
     ## list item separator
-    token infix:sym<,>
-        { <sym> { $<O><fiddly> := 0; } <O('%comma')> }
+#    token infix:sym<,>
+#        { <sym> { $<O><fiddly> := 0; } <O('%comma')> }
+    token infix:sym<,>    {
+        <sym>  <O('%comma')>
+    }
 
     token infix:sym«=>»
         { <sym> { $<O><fiddly> := 0; } <O('%comma')> }

diff --git a/test.pl b/test.pl
@@ -32,6 +32,7 @@
     say $s;
     #sub b ($x) { say $x }          # Method 'multisig' not found for invocant of class 'Perl6::P5Grammar'
     #for my $x (10..13) { say $x; } # scoped variables not yet implemented. Sorry.
+    say "16", 17;
 }
 
-say "16";
+say "18";