Better way to create the Listy return value of deepmap

Thanks to jnthn++ for pointing this out.
rakudo · Aug 24, 2015 · ce93835 · ce93835
1 parent 65a02f4
commit ce93835
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/core/metaops.pm b/src/core/metaops.pm
@@ -556,8 +556,10 @@ multi sub deepmap(\op, \obj) {
     }.new(op, iterable.iterator);
 
     my $type = nqp::istype(obj, List) ?? obj.WHAT !! List; # keep subtypes of List
-    my \retval = $type.from-iterator(result);
-    retval.is-lazy(); # fully reifies as a side-effect
+    my \buffer := IterationBuffer.new;
+    result.push-all(buffer);
+    my \retval = $type.new;
+    nqp::bindattr(retval, List, '$!reified', buffer);
     nqp::iscont(obj) ?? retval.item !! retval;
 }