Skip to content
Browse files

Update METAOP_CROSS to honor associativity of the base operator.

  • Loading branch information...
1 parent b639af6 commit 5e3dfe96f0c67aaebe4728f58cfe5ee4a615d28a @pmichaud pmichaud committed Jun 27, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/core/metaops.pm
View
2 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;

0 comments on commit 5e3dfe9

Please sign in to comment.
Something went wrong with that request. Please try again.