* eval.c (op_modplace): Fixing a few argument count mismatches

in format calls.

2 files changed, 7 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index 912e2854..6b569dd2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2014-02-03  Kaz Kylheku  <kaz@kylheku.com>
 
+	* eval.c (op_modplace): Fixing a few argument count mismatches
+	in format calls.
+
+2014-02-03  Kaz Kylheku  <kaz@kylheku.com>
+
 	Tighten up environment visibility semantics of default argument
 	init forms, while streamlining the implementation.
 
diff --git a/eval.c b/eval.c
index b4644bce..ddfb1185 100644
--- a/eval.c
+++ b/eval.c
@@ -1041,7 +1041,7 @@ static val op_modplace(val form, val env)
 
   if (op == set_s) {
     if (!third_arg_p)
-      eval_error(form, lit("~a: missing argument"), op, place, nao);
+      eval_error(form, lit("~a: missing argument"), op, nao);
     return set(*loc, eval(newform, env, form));
   } else if (op == inc_s) {
     val inc = or2(eval(newform, env, form), one);
@@ -1053,7 +1053,7 @@ static val op_modplace(val form, val env)
     return mpush(newval, *loc);
   } else if (op == pop_s) {
     if (third_arg_p)
-      eval_error(form, lit("~a: superfluous argument"), op, place, nao);
+      eval_error(form, lit("~a: superfluous argument"), op, nao);
     return pop(loc);
   } else if (op == flip_s) {
     return *loc = nullp(*loc);