Switch the grammar to look for an infixish rather than an infix after…

… infix_prefix_meta_operator so that you can stack metaops.
rakudo · Mar 15, 2010 · eff4bd3 · eff4bd3
1 parent f6de386
commit eff4bd3
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -1915,7 +1915,7 @@ method infixish($/) {
 
     if $<infix_prefix_meta_operator> {
         my $metaop := ~$<infix_prefix_meta_operator><sym>;
-        my $sym := ~$<infix><sym>;
+        my $sym := ~$<infixish>;
         my $opsub := "&infix:<$metaop$sym>";
         unless %*METAOPGEN{$opsub} {
             if $metaop eq '!' {

diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1034,7 +1034,7 @@ INIT {
 token infixish {
     | <OPER=infix> <![=]>
     | <infix> <OPER=infix_postfix_meta_operator>
-    | <OPER=infix_prefix_meta_operator> <infix>
+    | <OPER=infix_prefix_meta_operator> <infixish>
 }
 
 token postfixish {