xx * can also be called with :thunked

rakudo · Aug 19, 2014 · c516d5e · c516d5e
1 parent ebfe24f
commit c516d5e
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/core/List.pm b/src/core/List.pm
@@ -629,6 +629,9 @@ multi infix:<xx>(Mu \x, $n is copy, :$thunked!) {
     $n = nqp::p6bool(nqp::istype($n, Whatever)) ?? Inf !! $n.Int;
     GatherIter.new({ take x.() while --$n >= 0; }, :infinite($n == Inf)).list
 }
+multi infix:<xx>(Mu \x, Whatever, :$thunked!) {
+    GatherIter.new({ loop { take x.() } }, :infinite(True)).flat
+}
 multi infix:<xx>(Mu \x, Whatever) {
     GatherIter.new({ loop { take x } }, :infinite(True)).flat
 }