Switch a couple of `mapcar`s to `mapc`s
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Sat, 16 Jul 2016 19:34:00 +0000 |
| parents |
8a247663fec5
|
| children |
aacf9ee4fddc
|
| branches/tags |
(none) |
| files |
src/wam/compiler/3-flattening.lisp |
Changes
--- a/src/wam/compiler/3-flattening.lisp Sat Jul 16 19:23:51 2016 +0000
+++ b/src/wam/compiler/3-flattening.lisp Sat Jul 16 19:34:00 2016 +0000
@@ -114,13 +114,13 @@
(recursively ((node tree))
(when-let (assignment (node-flatten node))
(push assignment results))
- (mapcar #'recur (node-children node)))
+ (mapc #'recur (node-children node)))
(nreverse results)))
(defun flatten-depth-first-post-order (tree)
(let ((results nil))
(recursively ((node tree))
- (mapcar #'recur (node-children node))
+ (mapc #'recur (node-children node))
(when-let (assignment (node-flatten node))
(push assignment results)))
(nreverse results)))