Produce a "qx not implemented" message (RT #62024)

rakudo · Mar 1, 2009 · af4b730 · af4b730
1 parent 7bd5a95
commit af4b730
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/parser/grammar.pg b/src/parser/grammar.pg
@@ -818,10 +818,11 @@ token quote {
     # | <.before '«' > <quote_expression: :ww :qq>  FIXME: unicode
     | <.before '/'>    <quote_expression: :regex>
     | m   <.ws>        <quote_expression: :regex>
-    | q 
+    | q [ <.ws> ':' ]?
         [ q <.ws>      <quote_expression: :qq>
         | w <.ws>      <quote_expression: :q :w>
-        | ':PIR' <.ws> <quote_expression: :PIR>
+        | 'PIR' <.ws>  <quote_expression: :PIR>
+        | x <.ws>      <.panic: "qx not yet implemented">
         |   <.ws>      <quote_expression: :q>
         ]
     | Q [ <.ws> ':' ]?