* eval.c (do_eval): Set last_form_evaled just before

dispatching function, so it is not clobbered by argument evaluations.

2 files changed, 8 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index 0ff96251..e8ec3ea3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2014-02-26  Kaz Kylheku  <kaz@kylheku.com>
 
+	* eval.c (do_eval): Set last_form_evaled just before
+	dispatching function, so it is not clobbered by argument evaluations.
+
+2014-02-26  Kaz Kylheku  <kaz@kylheku.com>
+
 	* eval.c (expand_op): Use rlcp_tree when constructing the
 	dwim_body, since the append2 copies list structure.
 
diff --git a/eval.c b/eval.c
index a054e867..d986e0d9 100644
--- a/eval.c
+++ b/eval.c
@@ -902,8 +902,6 @@ static val do_eval(val form, val env, val ctx_form,
   } else if (consp(form)) {
     val oper = car(form);
 
-    last_form_evaled = form;
-
     if (regexp(oper))
       debug_return (oper);
 
@@ -912,15 +910,18 @@ static val do_eval(val form, val env, val ctx_form,
 
       if (entry) {
         opfun_t fp = (opfun_t) cptr_get(entry);
+        last_form_evaled = form;
         debug_return (fp(form, env));
       } else {
         val fbinding = lookup_fun(env, oper);
         if (!fbinding) {
+          last_form_evaled = form;
           eval_error(form, lit("no such function or operator: ~s"), oper, nao);
           abort();
         } else {
           val args = do_eval_args(rest(form), env, form, lookup);
           debug_frame(oper, args, nil, env, nil, nil, nil);
+          last_form_evaled = form;
           debug_return (apply(cdr(fbinding), args, form));
           debug_end;
         }