enable rx{...} quoting form. At some point we need a more general sol…

…ution for these quoting mechanismsn...
rakudo · Apr 29, 2010 · fe59fa8 · fe59fa8
1 parent e16cf45
commit fe59fa8
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1298,7 +1298,13 @@ token quote:sym<Q>     { 'Q'   <![(]> <.ws> <quote_EXPR> }
 token quote:sym<Q:PIR> { 'Q:PIR'      <.ws> <quote_EXPR> }
 token quote:sym</null/> { '/' \s* '/' <.panic: "Null regex not allowed"> }
 token quote:sym</ />  { '/'<p6regex=.LANG('Regex','nibbler')>'/' <.old_rx_mods>? }
-token quote:sym<rx>   { <sym> >> '/'<p6regex=.LANG('Regex','nibbler')>'/' <.old_rx_mods>? }
+token quote:sym<rx>   {
+    <sym> >> 
+    [
+    | '/'<p6regex=.LANG('Regex','nibbler')>'/' <.old_rx_mods>?
+    | '{'<p6regex=.LANG('Regex','nibbler')>'}' <.old_rx_mods>?
+    ]
+}
 token quote:sym<m> {
     <sym> >>
     [