Permalink
Browse files

Fix for loops in sink context to actually be sunk.

  • Loading branch information...
1 parent 9ba5dde commit 49404ef959b75106e04700c78005f41e1eaf6b78 @jnthn jnthn committed Jul 25, 2013
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/Perl6/Actions.nqp
View
@@ -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;
}

0 comments on commit 49404ef

Please sign in to comment.