Fix for loops in sink context to actually be sunk.

rakudo · Jul 25, 2013 · 49404ef · 49404ef
1 parent 9ba5dde
commit 49404ef
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -992,9 +992,9 @@ class Perl6::Actions is HLL::Actions does STDActions {
                         QAST::Op.new(:name('&infix:<,>'), :op('call'), $xblock[0]),
                         block_closure($xblock[1])
         );
-        $past := QAST::Op.new(
-            :op<callmethod>, :name<eager>, $past
-        );
+        $past := QAST::Want.new(
+            QAST::Op.new( :op<callmethod>, :name<eager>, $past ),
+            'v', QAST::Op.new( :op<callmethod>, :name<sink>, $past ));
         make $past;
     }