"for" list iteration calls .for, not .map

rakudo · Jan 17, 2015 · 7a1e7f4 · 7a1e7f4
1 parent a964f98
commit 7a1e7f4
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -221,7 +221,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
     # Turn $code into "for lines() { $code }"
     sub wrap_option_n_code($/, $code) {
         $code := make_topic_block_ref($/, $code, copy => 1);
-        my $past := QAST::Op.new(:op<callmethod>, :name<map>,
+        my $past := QAST::Op.new(:op<callmethod>, :name<for>,
             QAST::Op.new(:op<call>, :name<&lines>),
             QAST::Op.new(:op<p6capturelex>, $code)
         );
@@ -769,7 +769,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
                         $past := make_topic_block_ref($/, $past);
                     }
                     $past := QAST::Op.new(
-                            :op<callmethod>, :name<map>, :node($/),
+                            :op<callmethod>, :name<for>, :node($/),
                             QAST::Op.new(:op('call'), :name('&infix:<,>'), $cond),
                             block_closure($past)
                         );
@@ -1040,7 +1040,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
     method statement_control:sym<for>($/) {
         my $xblock := $<xblock>.ast;
         my $past := QAST::Op.new(
-                        :op<callmethod>, :name<map>, :node($/),
+                        :op<callmethod>, :name<for>, :node($/),
                         QAST::Op.new(:name('&infix:<,>'), :op('call'), $xblock[0]),
                         block_closure($xblock[1])
         );