Fix issue with HyperToIterator.skip-at-least

The $!current-items may already have items that we need to skip. So get any new items *after* we have skipped any from the current items.
rakudo · Mar 20, 2018 · ae0cbc3 · ae0cbc3
1 parent 34b294d
commit ae0cbc3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/Rakudo/Internals/HyperToIterator.pm6 b/src/core/Rakudo/Internals/HyperToIterator.pm6
@@ -72,13 +72,13 @@ my class Rakudo::Internals::HyperToIterator does Rakudo::Internals::HyperJoiner
     method skip-at-least(int $skipping) {
         my int $toskip = $skipping;
         while $toskip {
-            $!current-items := $!batches.receive.items;
-            self.batch-used();
             if nqp::isge_i(nqp::elems($!current-items),$toskip) {
                 nqp::splice($!current-items,EMPTY_BUFFER,0,$toskip);
                 return 1;
             }
             $toskip = nqp::sub_i($toskip,nqp::elems($!current-items));
+            $!current-items := $!batches.receive.items;
+            self.batch-used();
 
             CATCH {
                 when X::Channel::ReceiveOnClosed {