Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
assume final bind statement in sink is True
This is so that we don't accidentally throw a failure in sink context
after binding a failure.  Part of the fix for RT #125769.
  • Loading branch information
TimToady committed Dec 19, 2015
1 parent 8456169 commit 09aaf93
Showing 1 changed file with 2 additions and 0 deletions.
2 changes: 2 additions & 0 deletions src/Perl6/Actions.nqp
Expand Up @@ -162,6 +162,8 @@ sub unwanted($ast, $by) {
++$i;
}
$ast.annotate('context','sink');
$ast.push(QAST::WVal.new( :value($*W.find_symbol(['True'])) ))
if $e >= 0 && nqp::istype($ast[$e],QAST::Op) && $ast[$e].op eq 'bind';
}
elsif nqp::istype($ast,QAST::Block) {
my int $i := 1;
Expand Down

0 comments on commit 09aaf93

Please sign in to comment.