More idiomatic use of eager

rakudo · Aug 25, 2015 · 90d45ed · 90d45ed
1 parent 48791be
commit 90d45ed
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/List.pm b/src/core/List.pm
@@ -967,11 +967,11 @@ sub infix:<Z>(|lol) {
     }
     my $arity = lol.elems;
     return if $arity == 0;
-    my @l = eager for ^$arity -> $i {
+    eager my @l = (^$arity).map: -> $i {
             my \elem = lol[$i];         # can't use mapping here, mustn't flatten
             if nqp::iscont(elem) { (elem,).iterator }
             else                 { elem.iterator }
-        }
+    };
 
     gather {
         loop {