summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2017-03-13 07:19:40 -0700
committerKaz Kylheku <kaz@kylheku.com>2017-03-13 07:19:40 -0700
commitf3a0b4ddc516de5524862b51af548e277a43a28a (patch)
tree8aacac942c940f8c928c72c4393d3f1797736866 /eval.c
parentbb0476aa11a6f4f24c16ddebcaf3917764655f45 (diff)
downloadtxr-f3a0b4ddc516de5524862b51af548e277a43a28a.tar.gz
txr-f3a0b4ddc516de5524862b51af548e277a43a28a.tar.bz2
txr-f3a0b4ddc516de5524862b51af548e277a43a28a.zip
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.
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c4
1 files changed, 2 insertions, 2 deletions
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);
}