Fix loop.

rakudo · Jul 21, 2012 · cddd89c · cddd89c
1 parent 926e030
commit cddd89c
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/QPerl6/Actions.pm b/src/QPerl6/Actions.pm
@@ -784,11 +784,9 @@ class QPerl6::Actions is HLL::Actions {
         my $block := pblock_immediate($<block>.ast);
         my $cond := $<e2> ?? $<e2>[0].ast !! QAST::Var.new(:name<True>, :scope<lexical>);
         my $loop := QAST::Op.new( $cond, :op('while'), :node($/) );
+        $loop.push($block);
         if $<e3> {
-            $loop.push(QAST::Stmts.new( $block, $<e3>[0].ast ));
-        }
-        else {
-            $loop.push($block);
+            $loop.push($<e3>[0].ast);
         }
         if $<e1> {
             $loop := QAST::Stmts.new( $<e1>[0].ast, $loop, :node($/) );