gather should batch an eager reify

Just changing the batch size from 1 to 1000 makes a simple gather/take run twice as fast, even though it's still doing all the continuations.
rakudo · Aug 19, 2014 · e7835e9 · e7835e9
1 parent 9a2f3e5
commit e7835e9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/GatherIter.pm b/src/core/GatherIter.pm
@@ -20,7 +20,7 @@ class GatherIter is Iterator {
             nqp::continuationcontrol(0, $GATHER_PROMPT, -> Mu \c { $state := c; });
         }
         $state := {
-            nqp::handle( $block().eager(),
+            nqp::handle( $block(),
                 'TAKE', SEQ($takings := nqp::getpayload(nqp::exception()); yield(); nqp::resume(nqp::exception())));
             $takings := $SENTINEL; yield();
         };
@@ -49,7 +49,7 @@ class GatherIter is Iterator {
             my Mu $rpa := nqp::list();
             my Mu $parcel;
             my $end = Bool::False;
-            my $count = nqp::istype($n, Whatever) ?? 1 !! $n;
+            my $count = nqp::istype($n, Whatever) ?? 1000 !! $n;
             while !$end && $count > 0 {
                 $parcel := $!coro();
 #?if parrot