Produce a known-lazy Seq from List.roll(*)

rakudo · Aug 19, 2015 · a343c2f · a343c2f
1 parent 52bf81a
commit a343c2f
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/core/List.pm b/src/core/List.pm
@@ -608,9 +608,8 @@ my class List does Iterable does Positional { # declared in BOOTSTRAP
         my $elems = self.elems;
         return () unless $elems;
 
-        gather loop {
-            take nqp::atpos($!reified,$elems.rand.floor);
-        }
+        # directly use Seq.from-loop so that the result is known infinite
+        Seq.from-loop({nqp::atpos($!reified, $elems.rand.floor)});
     }
     multi method roll(\number) {
         return self.roll(*) if number == Inf;