diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2017-03-13 07:19:40 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2017-03-13 07:19:40 -0700 |
commit | f3a0b4ddc516de5524862b51af548e277a43a28a (patch) | |
tree | 8aacac942c940f8c928c72c4393d3f1797736866 /eval.c | |
parent | bb0476aa11a6f4f24c16ddebcaf3917764655f45 (diff) | |
download | txr-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.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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); } |