Fix thinko in block migration predicate check.

rakudo · Apr 28, 2015 · 709b77d · 709b77d
1 parent 4a8a61f
commit 709b77d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -5047,7 +5047,7 @@ Compilation unit '$file' contained the following violations:
             }
             elsif (nqp::istype(@decls[$i], QAST::Stmt) || nqp::istype(@decls[$i], QAST::Stmts)) &&
                   nqp::istype(@decls[$i][0], QAST::Block) {
-                if !$predicate || $predicate(@decls[$i]) {
+                if !$predicate || $predicate(@decls[$i][0]) {
                     $to[0].push(@decls[$i][0]);
                     @decls[$i][0] := QAST::Op.new( :op('null') );
                 }