Update METAOP_CROSS to honor associativity of the base operator.

rakudo · Jun 27, 2012 · 5e3dfe9 · 5e3dfe9
1 parent b639af6
commit 5e3dfe9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/metaops.pm b/src/core/metaops.pm
@@ -17,7 +17,7 @@ sub METAOP_REVERSE(\$op) {
 
 sub METAOP_CROSS(\$op, &reduce) {
     -> **@lol {
-        my $rop = @lol.elems == 2 ?? $op !! METAOP_REDUCE_LEFT($op);
+        my $rop = @lol.elems == 2 ?? $op !! &reduce($op);
         my @l;
         my @v;
         @l[0] = (@lol[0].flat,).list;