support closures

rakudo-p5 · Apr 5, 2013 · e550174 · e550174
1 parent 75830f5
commit e550174
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 7 deletions.
diff --git a/lib/Perl6/P5Actions.pm b/lib/Perl6/P5Actions.pm
@@ -4382,7 +4382,7 @@ class Perl6::P5Actions is HLL::Actions does STDActions {
         $DEBUG && say("circumfix:sym<« »>($/)"); make $<nibble>.ast; }
 
     method circumfix:sym<{ }>($/) {
-        $DEBUG && say("circumfix:sym<{ }>($/)");
+        $DEBUG && say("circumfix:sym<\{ }>($/)");
         # If it was {YOU_ARE_HERE}, nothing to do here.
         my $past := $<sblock>.ast;
         if ~$/ eq '{YOU_ARE_HERE}' {

diff --git a/lib/Perl6/P5Grammar.pm b/lib/Perl6/P5Grammar.pm
@@ -3110,12 +3110,6 @@ grammar Perl6::P5Grammar is HLL::Grammar does STD5 {
     }
 
     token circumfix:sym<{ }> {
-        <?before '{' >
-        <block>
-        <O('%term')>
-    }
-
-    token statement_control:sym<{ }> {
         <?before '{' >
         <sblock>
         <O('%term')>