Fix loop code-gen.

rakudo · Jul 14, 2012 · 8700bce · 8700bce
1 parent f97e527
commit 8700bce
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/QPerl6/Actions.pm b/src/QPerl6/Actions.pm
@@ -746,9 +746,12 @@ class QPerl6::Actions is HLL::Actions {
     method statement_control:sym<loop>($/) {
         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, $block, :op('while'), :node($/) );
+        my $loop := QAST::Op.new( $cond, :op('while'), :node($/) );
         if $<e3> {
-            $loop.push( $<e3>[0].ast );
+            $loop.push(QAST::Stmts.new( $block, $<e3>[0].ast ));
+        }
+        else {
+            $loop.push($block);
         }
         if $<e1> {
             $loop := QAST::Stmts.new( $<e1>[0].ast, $loop, :node($/) );