Clean up LoL iteration so that @A Z @A Z @A works properly.

rakudo · Jul 1, 2011 · 71607fa · 71607fa
1 parent 83ad0a8
commit 71607fa
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/core/ListIter.pm b/src/core/ListIter.pm
@@ -13,6 +13,8 @@ my class ListIter {
             my $rpa := nqp::list();
             my Mu $x;
             my $index;
+            pir::perl6_shiftpush__0PPI($rpa, $!rest, nqp::elems($!rest))
+                if nqp::istype($!list, LoL);
             while $!rest && nqp::islt_i(nqp::elems($rpa), nqp::unbox_i($count)) {
                 $index = nqp::p6box_i(
                              pir::perl6_rpa_find_type__IPPii(