allow :with on Z and zip

rakudo · Mar 30, 2015 · 8dc34c2 · 8dc34c2
1 parent 253bb58
commit 8dc34c2
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/core/LoL.pm b/src/core/LoL.pm
@@ -155,6 +155,9 @@ sub infix:<X>(|lol) {
 sub infix:<Z>(|lol) {
     my $arity = lol.elems;
     return if $arity == 0;
+    if lol.hash && lol.hash<with> {
+        return METAOP_ZIP(lol.hash<with>, &reduce)(|lol.list);
+    }
     my @l = eager for ^$arity -> $i {
             my \elem = lol[$i];         # can't use mapping here, mustn't flatten