Get the $bottle ~~ s[full] = 'empty' syntax working too.

rakudo · Mar 17, 2010 · 3a03034 · 3a03034
1 parent 8b09f69
commit 3a03034
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -2141,7 +2141,7 @@ method quote:sym<s>($/) {
     my $closure_ast := PAST::Block.new(
         PAST::Stmts.new(),
         PAST::Stmts.new(
-            $<quote_EXPR>.ast
+            $<quote_EXPR> ?? $<quote_EXPR>.ast !! $<EXPR>.ast
         )
     );
     my $closure := create_code_object($closure_ast, 'Block', 0, '');

diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -991,10 +991,12 @@ token quote:sym<m> {
 }
 token quote:sym<s> {
     <sym> >> 
-    '/'
-    <p6regex=.LANG('Regex','nibbler')>
-    <?[/]>
-    <quote_EXPR: ':qq'>
+    [
+    | '/' <p6regex=.LANG('Regex','nibbler')> <?[/]> <quote_EXPR: ':qq'>
+    | '[' <p6regex=.LANG('Regex','nibbler')> ']'
+      <.ws> [ '=' || <.panic: "Missing assignment operator"> ]
+      <.ws> <EXPR('i')>
+    ]
 }
 
 token quote_escape:sym<$>   { <?[$]> <?quotemod_check('s')> <variable> }