[dotnet] Compile for to $expr.map($block).eager rather the for pastty…

…pe for the time being.
jnthn · Nov 13, 2010 · ec09403 · ec09403
1 parent 08510b7
commit ec09403
Showing 1 changed file with 12 additions and 5 deletions.
diff --git a/dotnet/compiler/Actions.pm b/dotnet/compiler/Actions.pm
@@ -190,16 +190,23 @@ method statement_control:sym<repeat>($/) {
 }
 
 method statement_control:sym<for>($/) {
-    my $past := $<xblock>.ast;
-    $past.pasttype('for');
-    my $block := $past[1];
+    my $xb := $<xblock>.ast;
+    my $expr  := $xb[0];
+    my $block := $xb[1];
     unless $block.arity {
         $block[0].push( PAST::Var.new( :name('$_'), :scope('parameter') ) );
         $block.symbol('$_', :scope('lexical') );
         $block.arity(1);
     }
-    $block.blocktype('immediate');
-    make $past;
+    $block.blocktype('declaration');
+    make PAST::Op.new(
+        :pasttype('callmethod'), :name('eager'),
+        PAST::Op.new(
+            :pasttype('callmethod'), :name('map'),
+            $expr,
+            $block
+        )
+    );
 }
 
 method statement_control:sym<return>($/) {