Fix double-gather bug.

rakudo · Jul 21, 2010 · ac0987c · ac0987c
1 parent 3176182
commit ac0987c
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -547,8 +547,7 @@ method statement_prefix:sym<do>($/) {
 }
 
 method statement_prefix:sym<gather>($/) {
-    my $past := $<blorst>.ast;
-    $past.blocktype('declaration');
+    my $past := block_closure($<blorst>.ast);
     make PAST::Op.new( :pasttype('call'), :name('!GATHER'), $past );
 }