* eval.c (do_eval): Bugfix: though last_form_evaled is

saved and restored around the execution of a special operator,
it is never set the current form.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index cf1d01a2..bb701106 100644
--- a/eval.c
+++ b/eval.c
@@ -1089,6 +1089,7 @@ static val do_eval(val form, val env, val ctx_form,
     if (entry) {
       opfun_t fp = coerce(opfun_t, cptr_get(entry));
       val ret, lfe_save = last_form_evaled;
+      last_form_evaled = form;
       ret = fp(form, env);
       last_form_evaled = lfe_save;
       debug_return (ret);