Fix index rules with integer +/- : was using incorrect syntax to capt…

…ure $<op>
partcl · Dec 17, 2009 · 25dd2f4 · 25dd2f4
1 parent 89eca8a
commit 25dd2f4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Partcl/Grammar.pm b/src/Partcl/Grammar.pm
@@ -93,7 +93,7 @@ token int:sym<hex> { 0<[Xx]> $<digits>=(<[0..9A..Fa..f]>+) }
 token int:sym<oct> { 0<[Oo]>? $<digits>=(<[0..7]>+) }
 
 proto token index { <...> }
-token index:sym<int>  { <a=.integer> [ <op=[+\-]> <b=.integer> ]? }
+token index:sym<int>  { <a=.integer> [ $<op>=[<[+\-]>] <b=.integer> ]? }
 token index:sym<end>  { 'end' }
 token index:sym<end+> { 'end+' <a=.integer>}
 token index:sym<end-> { 'end-' <a=.integer>}