Make Xop about 7x faster

Except for the Xand family, which is still using the old code.
rakudo · Jan 16, 2017 · a26f513 · a26f513
1 parent 2e80df0
commit a26f513
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/core/metaops.pm b/src/core/metaops.pm
@@ -18,8 +18,7 @@ sub METAOP_REVERSE(\op) {
 }
 
 sub METAOP_CROSS(\op, &reduce) {
-    return &infix:<X> if op === &infix:<,>;
-
+    nqp::if(op.prec('thunky').starts-with('.'),
     -> +lol {
         my $rop = lol.elems == 2 ?? op !! &reduce(op);
         my $laze = False;
@@ -71,7 +70,11 @@ sub METAOP_CROSS(\op, &reduce) {
                 }
             }
         }.lazy-if($laze);
+    },
+    -> +lol {
+        Seq.new(Rakudo::Iterator.CrossIterablesOp(lol,op))
     }
+    )
 }
 
 sub METAOP_ZIP(\op, &reduce) {