Make deepmap actually recursive

rakudo · Aug 22, 2015 · 0ca6b57 · 0ca6b57
1 parent a519305
commit 0ca6b57
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/core/metaops.pm b/src/core/metaops.pm
@@ -524,7 +524,13 @@ multi sub deepmap(\op, \obj) {
                             nqp::stmts(
                                 ($result := &!block($value)),
                                 nqp::if(
-                                    nqp::istype($result, Slip), # GLR add code handling Iterable here
+                                    nqp::istype($result, Iterable),
+                                    nqp::stmts(
+                                        ($result := deepmap(op, $result))
+                                    )
+                                ),
+                                nqp::if(
+                                    nqp::istype($result, Slip),
                                     nqp::stmts(
                                         ($result := self.start-slip($result)),
                                         nqp::if(