mapcar*: fix broken.

* eval.c (lazy_mapcar_func): We must capture the return value
of iter_step, since we refer to it in the next statement,
expecting it to have stepped. This bug causes a behavior as if
the original list had an extra nil.

* tests/012/lazy.tl: Tests. Poor test coverage is why this
sort of thing comes up and bites us.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index b2e0605a..814f99c5 100644
--- a/eval.c
+++ b/eval.c
@@ -5428,7 +5428,7 @@ static val lazy_mapcar_func(val env, val lcons)
   us_cons_bind (fun, iter, env);
 
   us_rplaca(lcons, funcall1(fun, iter_item(iter)));
-  us_rplacd(env, iter_step(iter));
+  us_rplacd(env, iter = iter_step(iter));
 
   if (iter_more(iter))
     us_rplacd(lcons, make_lazy_cons(us_lcons_fun(lcons)));