propagate outer wanted to logical thunks

Fixes RT #128770
rakudo · Jul 29, 2016 · 7ba6dbf · 7ba6dbf
1 parent 61725d7
commit 7ba6dbf
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -84,7 +84,13 @@ sub wanted($ast,$by) {
         $ast.annotate('WANTED',1);
     }
     elsif nqp::istype($ast,QAST::Op) {
-        if $ast.op eq 'call' && (!$ast.name || $ast.name eq '&infix:<,>' || $ast.name eq '&infix:<xx>') {
+        if $ast.op eq 'call' && (
+                !$ast.name ||
+                $ast.name eq '&infix:<,>' ||
+                $ast.name eq '&infix:<andthen>' ||
+                $ast.name eq '&infix:<orelse>' ||
+                $ast.name eq '&infix:<notandthen>' ||
+                $ast.name eq '&infix:<xx>') {
             WANTALL($ast,$byby);
         }
         elsif $ast.op eq 'p6capturelex' {