From 5ee9c14113a3ebcc4cf5488e243cb97babd8be93 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 29 Feb 2016 06:29:13 -0800 Subject: Bugfix: append-each is wrongly destructive. * eval.c (op_each): Use list_collect_append not list_collect_nconc. Ouch! --- eval.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); } } -- cgit v1.2.3