# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1468697640 0
# Node ID 62c76cc272e7fab9cf59178c786bdf451c2dcec0
# Parent  8a247663fec58070e2dbf92c38c19a9192d25f87
Switch a couple of `mapcar`s to `mapc`s

diff -r 8a247663fec5 -r 62c76cc272e7 src/wam/compiler/3-flattening.lisp
--- 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)))