better error message for ?:

rakudo · Feb 20, 2011 · 880a0a7 · 880a0a7
1 parent 9ed54cf
commit 880a0a7
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1958,6 +1958,9 @@ token infix:sym<...>  { <sym>  <O('%list_infix')> }
 token infix:sym<...^> { <sym>  <O('%list_infix')> }
 # token term:sym<...>   { <sym> <args>? <O(|%list_prefix)> }
 
+token infix:sym<?>    { <sym> {} <!before '?'> <?before <-[;]>*?':'> <.obs('?: for the conditional operator', '??!!')> <O('%conditional')> }
+
+
 token infix:sym<=> {
     <sym>
     [