gistfile1.txt

diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
index f137fcb..118d2d0 100644
--- a/src/Perl6/Actions.nqp
+++ b/src/Perl6/Actions.nqp
@@ -5,6 +5,17 @@ use Perl6::Ops;
 use QRegex;
 use QAST;
 
+sub block_closure($code) {
+    my $closure := QAST::Op.new(
+        :op('callmethod'), :name('clone'),
+        $code
+    );
+    $closure := QAST::Op.new( :op('p6capturelex'), $closure);
+    $closure.annotate('past_block', $code.ann('past_block'));
+    $closure.annotate('code_object', $code.ann('code_object'));
+    $closure
+}
+
 register_op_desugar('p6callmethodhow', -> $qast {
     $qast   := $qast.shallow_clone();
     my $inv := $qast.shift;
@@ -46,6 +57,30 @@ register_op_desugar('p6fatalize', -> $qast {
             )
         ))
 });
+register_op_desugar('p6for', -> $qast {
+    my $xblock := $qast[0];
+    my $for-list-name := QAST::Node.unique('for-list');
+    my $iscont := QAST::Op.new(:op('iscont'), QAST::Var.new( :name($for-list-name), :scope('local') ));
+    $iscont.named('item');
+    my $call := QAST::Op.new(
+        :op<callmethod>, :name<map>, :node($qast),
+        QAST::Var.new( :name($for-list-name), :scope('local') ),
+        block_closure($xblock[1]),
+        $iscont,
+    );
+    if $*LABEL {
+        $call.push(QAST::WVal.new( :value($*W.find_symbol([$*LABEL])), :named('label') ));
+    }
+    my $bind := QAST::Op.new(
+        :op('bind'),
+        QAST::Var.new( :name($for-list-name), :scope('local'), :decl('var') ),
+        $xblock[0],
+    );
+    my $past := QAST::Stmts.new(
+        $bind,
+        QAST::Op.new( :op<callmethod>, :name($qast.ann('context')), $call )
+    );
+});
 
 role STDActions {
     method quibble($/) {
@@ -1240,36 +1275,25 @@ Compilation unit '$file' contained the following violations:
 
     method statement_control:sym<for>($/) {
         my $xblock := $<xblock>.ast;
-        my $for-list-name := QAST::Node.unique('for-list');
-        my $iscont := QAST::Op.new(:op('iscont'), QAST::Var.new( :name($for-list-name), :scope('local') ));
-        $iscont.named('item');
-        my $call := QAST::Op.new(
-            :op<callmethod>, :name<map>, :node($/),
-            QAST::Var.new( :name($for-list-name), :scope('local') ),
-            block_closure($xblock[1]),
-            $iscont,
-        );
-        if $*LABEL {
-            $call.push(QAST::WVal.new( :value($*W.find_symbol([$*LABEL])), :named('label') ));
-        }
-        my $bind := QAST::Op.new(
-            :op('bind'),
-            QAST::Var.new( :name($for-list-name), :scope('local'), :decl('var') ),
-            $xblock[0],
+        QAST::Op.new(
+            :op<p6for>, :node($/),
+            $xblock,
         );
         my $past := QAST::Want.new(
-            QAST::Stmts.new(
-                $bind,
-                QAST::Op.new( :op<callmethod>, :name<eager>, $call )
+            QAST::Op.new(
+                :op<p6for>, :node($/),
+                $xblock,
             ),
-            'v', QAST::Stmts.new(
-                $bind,
-                QAST::Op.new( :op<callmethod>, :name<sink>, $call )
+            'v', QAST::Op.new(
+                :op<p6for>, :node($/),
+                $xblock,
             ),
         );
+        $past[0].annotate('context', 'eager');
+        $past[2].annotate('context', 'sink');
         my $sinkee := $past[0][1];
         $past.annotate('statement_level', -> { $sinkee.name('sink') });
-        make $past;
+        $past
     }
 
     method statement_control:sym<whenever>($/) {
@@ -7591,17 +7615,6 @@ Compilation unit '$file' contained the following violations:
         $ref
     }
 
-    sub block_closure($code) {
-        my $closure := QAST::Op.new(
-            :op('callmethod'), :name('clone'),
-            $code
-        );
-        $closure := QAST::Op.new( :op('p6capturelex'), $closure);
-        $closure.annotate('past_block', $code.ann('past_block'));
-        $closure.annotate('code_object', $code.ann('code_object'));
-        $closure
-    }
-
     sub make_thunk_ref($to_thunk, $/) {
         my $block := $*W.push_lexpad($/);
         fatalize($to_thunk) if %*PRAGMAS<fatal>;