From f3a0b4ddc516de5524862b51af548e277a43a28a Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 13 Mar 2017 07:19:40 -0700 Subject: Fix missing nao terminator in formatted printing. * arith.c (trunc1, trunc, floorf, ceili): Add missing nao terminator to uw_throwf calls. * debug.c (debug): Missing nao terminator in format call. * eval.c (expand_opt_params_rec, me_equot): Missing nao terminator in eval_error call. * lib.c (use_sym): Missing nao in uw_throw call. * regex.c (reg_derivative): Missing nao in uw_throwf. --- eval.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'eval.c') diff --git a/eval.c b/eval.c index b4beaa9a..873c810c 100644 --- a/eval.c +++ b/eval.c @@ -923,7 +923,7 @@ static val expand_opt_params_rec(val params, val menv, if (cdddr(pair)) eval_error(form, lit("~s: extra forms ~s in ~s"), - car(form), pair, cdddr(pair)); + car(form), pair, cdddr(pair), nao); if (opt_sym) { if (!bindable(opt_sym)) @@ -3181,7 +3181,7 @@ static val me_qquote(val form, val menv) static val me_equot(val form, val menv) { if (!cdr(form) || cddr(form)) - eval_error(form, lit("~s: one argument required"), car(form)); + eval_error(form, lit("~s: one argument required"), car(form), nao); return rlcp(cons(quote_s, cons(expand(cadr(form), menv), nil)), form); } -- cgit v1.2.3