Fix X with more than 3 dimensions

rakudo · Sep 14, 2015 · 57340b4 · 57340b4
1 parent 57a7f6a
commit 57340b4
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/core/List.pm b/src/core/List.pm
@@ -1008,9 +1008,10 @@ sub infix:<X>(|lol) {
     }
     else { # more than 3 dimensions
         my Mu $jsave := nqp::list_i();
+        my \source = @l[0].iterator;
         gather {
             while $i == 0 {
-                my \e = @l[0].pull-one;
+                my \e = source.pull-one;
                 if e !=:= IterationEnd {
                     nqp::bindpos($v, $i, e);