diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | eval.c | 4 |
2 files changed, 7 insertions, 2 deletions
@@ -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. @@ -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); |