Fix parse-o spotted by tadzik++. (Really want to figure out how STD a…

…voids needing this, though.)
rakudo · May 27, 2012 · 2ad64fa · 2ad64fa
1 parent 9653a4d
commit 2ad64fa
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -2548,8 +2548,8 @@ grammar Perl6::Grammar is HLL::Grammar {
     token prefix:sym<+>   { <sym>  <O('%symbolic_unary')> }
     token prefix:sym<~>   { <sym>  <O('%symbolic_unary')> }
     token prefix:sym<->   { <sym> <![>]> <O('%symbolic_unary')> }
-    token prefix:sym<?>   { <sym>  <O('%symbolic_unary')> }
-    token prefix:sym<!>   { <sym>  <O('%symbolic_unary')> }
+    token prefix:sym<?>   { <sym> <!before '??'> <O('%symbolic_unary')> }
+    token prefix:sym<!>   { <sym> <!before '!!'> <O('%symbolic_unary')> }
     token prefix:sym<+^>  { <sym>  <O('%symbolic_unary')> }
     token prefix:sym<~^>  { <sym>  <O('%symbolic_unary')> }
     token prefix:sym<?^>  { <sym>  <O('%symbolic_unary')> }