be more robust when .count is Inf

but does not cover all cases yet
rakudo · Apr 24, 2012 · 11c0ab8 · 11c0ab8
1 parent b64c1e9
commit 11c0ab8
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/core/List.pm b/src/core/List.pm
@@ -125,9 +125,9 @@ my class List does Positional {
 
     method munch($n is copy) {
         $n = 0 if $n < 0;
-        self.gimme($n) if nqp::not_i(nqp::istype($n, Int))
+        $n = self.gimme($n) if nqp::not_i(nqp::istype($n, Int))
-                          || nqp::not_i(nqp::islist($!items))
+                               || nqp::not_i(nqp::islist($!items))
-                          || nqp::islt_i(nqp::elems($!items), nqp::unbox_i($n));
+                               || nqp::islt_i(nqp::elems($!items), nqp::unbox_i($n));
         nqp::p6parcel(
             pir::perl6_shiftpush__0PPi(nqp::list(), $!items, nqp::unbox_i($n)),
             Any

diff --git a/src/core/MapIter.pm b/src/core/MapIter.pm
@@ -22,7 +22,7 @@ my class MapIter is Iterator {
             my $argc = $!block.count;
             $argc = 1 if $argc < 1;
             my $count;
-            if nqp::istype($n, Whatever) {
+            if nqp::istype($n, Whatever) || $argc === $Inf {
                 $count = ($!list.gimme(*).Num / $argc).ceiling.Int
             }
             else {