From bcac7015dadee4c22e6e2adf96cb8cded25e2fe2 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 3 Feb 2014 05:07:09 -0800 Subject: * eval.c (op_modplace): Fixing a few argument count mismatches in format calls. --- eval.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'eval.c') 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); -- cgit v1.2.3