METAOP_REDUCE -> METAOP_REDUCE_LEFT

rakudo · Jun 27, 2012 · ed46bdb · ed46bdb
1 parent 1ffd6cf
commit ed46bdb
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -4124,7 +4124,7 @@ class Perl6::Actions is HLL::Actions {
                           ?? $base.ast[0]
                           !! PAST::Var.new(:name("&infix:<" ~ $base<OPER><sym> ~ ">"),
                                            :scope<lexical_6model>);
-        my $metaop   := '&METAOP_REDUCE';
+        my $metaop   := '&METAOP_REDUCE_LEFT';
         if $base<OPER><O><assoc> eq 'right'     { $metaop := '&METAOP_REDUCE_RIGHT' }
         elsif $base<OPER><O><assoc> eq 'list'   { $metaop := '&METAOP_REDUCE_LIST'  }
         elsif $base<OPER><O><prec> eq 'm='      { $metaop := '&METAOP_REDUCE_CHAIN' }

diff --git a/src/core/metaops.pm b/src/core/metaops.pm
@@ -17,7 +17,7 @@ sub METAOP_REVERSE(\$op) {
 
 sub METAOP_CROSS(\$op) {
     -> **@lol {
-        my $rop = @lol.elems == 2 ?? $op !! METAOP_REDUCE($op);
+        my $rop = @lol.elems == 2 ?? $op !! METAOP_REDUCE_LEFT($op);
         my @l;
         my @v;
         @l[0] = (@lol[0].flat,).list;
@@ -41,7 +41,7 @@ sub METAOP_CROSS(\$op) {
 
 sub METAOP_ZIP(\$op) {
     -> **@lol {
-        my $rop = METAOP_REDUCE($op);
+        my $rop = METAOP_REDUCE_LEFT($op);
         my @l = @lol.map({ (.flat,).list.item });
         gather {
             my $loop = 1;
@@ -53,7 +53,7 @@ sub METAOP_ZIP(\$op) {
     }
 }
 
-sub METAOP_REDUCE(\$op, :$triangle) {
+sub METAOP_REDUCE_LEFT(\$op, :$triangle) {
     my $x := $triangle ??
         (sub (*@values) {
             return () unless @values.gimme(1);