Bugfix: append-each is wrongly destructive.

* eval.c (op_each): Use list_collect_append not
list_collect_nconc. Ouch!

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index 62eeb7d2..f976673b 100644
--- a/eval.c
+++ b/eval.c
@@ -1402,7 +1402,7 @@ static val op_each(val form, val env)
       if (collect)
         ptail = list_collect(ptail, res);
       else if (append)
-        ptail = list_collect_nconc(ptail, res);
+        ptail = list_collect_append(ptail, res);
     }
   }