Must clone then p6capturelex.

Otherwise it's a race condition. This is the only place I spotted this bug; the other places seem to get it right.
rakudo · Jun 9, 2015 · 70abc0b · 70abc0b
1 parent 636bd32
commit 70abc0b
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -2101,11 +2101,11 @@ Compilation unit '$file' contained the following violations:
                 'Block', $*W.create_signature(nqp::hash('parameter_objects', [])));
             my $fixup := $*W.create_lexical_capture_fixup();
             $fixup.push(QAST::Op.new(
-                :op('callmethod'), :name('clone'),
-                QAST::Op.new(
                     :op('p6capturelex'),
-                    QAST::WVal.new( :value($throwaway_block) )
-                )));
+                    QAST::Op.new(
+                        :op('callmethod'), :name('clone'),
+                        QAST::WVal.new( :value($throwaway_block) )
+                    )));
             $block[1].push($fixup);
 
             # As its last act, it should grab the current lexpad so that