Fix X with lazy second argument

rakudo · Sep 14, 2015 · 56634c5 · 56634c5
1 parent 57340b4
commit 56634c5
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/core/List.pm b/src/core/List.pm
@@ -955,8 +955,9 @@ sub infix:<X>(|lol) {
 
     if $Inf {  # general case treats all lists as potentially lazy
         return gather {
+            my @i = @l.map: *.iterator;
             while $i >= 0 {
-                my \e = @l[$i].pull-one();
+                my \e = @i[$i].pull-one();
                 if e !=:= IterationEnd {
                     nqp::bindpos($v, $i, e);
                     if $i >= $n { take nqp::clone($v) }