From 1b8382aaa0f95f95c7bc85d69c70129aacbc2fa6 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 5 Aug 2015 07:13:01 -0700
Subject: * 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.

---
 eval.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'eval.c')

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);
-- 
cgit v1.2.3