Fix named parameter for Supply.zip

rakudo · Apr 19, 2014 · c27f546 · c27f546
1 parent 4a1e6a7
commit c27f546
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/src/core/Supply.pm b/src/core/Supply.pm
@@ -90,7 +90,7 @@ my role Supply {
     method uniq(:&as,:&with)   { SupplyOperations.uniq(self, :&as, :&with) }
     method squish(:&as,:&with) { SupplyOperations.squish(self, :&as, :&with) }
     method merge($s)           { SupplyOperations.merge(self, $s) }
-    method zip($s, *@with)     { SupplyOperations.zip(self, $s, |@with) }
+    method zip($s,:&with)      { SupplyOperations.zip(self, $s, :&with) }
 }
 
 # The on meta-combinator provides a mechanism for implementing thread-safe

diff --git a/src/core/SupplyOperations.pm b/src/core/SupplyOperations.pm
@@ -259,7 +259,8 @@ my class SupplyOperations is repr('Uninstantiable') {
         }
     }
 
-    method zip(Supply $a, Supply $b, &with = &infix:<,>) {
+    method zip(Supply $a, Supply $b, :&with is copy ) {
+        &with //= &[,];
         my @as;
         my @bs;
         on -> $res {