Permalink
Browse files

fix infix:sym<,>

  • Loading branch information...
1 parent 85bbba6 commit 5bfeb4a345aa95919f3c88b2efce061638ce259e @FROGGS FROGGS committed Mar 24, 2013
Showing with 7 additions and 3 deletions.
  1. +5 −2 lib/Perl6/P5Grammar.pm
  2. +2 −1 test.pl
View
@@ -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')> }
View
@@ -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";

0 comments on commit 5bfeb4a

Please sign in to comment.