diff options
-rw-r--r-- | arith.c | 8 | ||||
-rw-r--r-- | debug.c | 2 | ||||
-rw-r--r-- | eval.c | 4 | ||||
-rw-r--r-- | lib.c | 2 | ||||
-rw-r--r-- | regex.c | 2 |
5 files changed, 9 insertions, 9 deletions
@@ -819,7 +819,7 @@ static val trunc1(val num) default: break; } - uw_throwf(error_s, lit("trunc: invalid operand ~s"), num); + uw_throwf(error_s, lit("trunc: invalid operand ~s"), num, nao); } val trunc(val anum, val bnum) @@ -1267,7 +1267,7 @@ static val round1(val num) default: break; } - uw_throwf(error_s, lit("round: invalid operand ~s"), num); + uw_throwf(error_s, lit("round: invalid operand ~s"), num, nao); } @@ -1956,7 +1956,7 @@ val floorf(val num) default: break; } - uw_throwf(error_s, lit("floor: invalid operand ~s"), num); + uw_throwf(error_s, lit("floor: invalid operand ~s"), num, nao); } val ceili(val num) @@ -1972,7 +1972,7 @@ val ceili(val num) default: break; } - uw_throwf(error_s, lit("ceil: invalid operand ~s"), num); + uw_throwf(error_s, lit("ceil: invalid operand ~s"), num, nao); } val sine(val num) @@ -209,7 +209,7 @@ val debug(val ctx, val bindings, val data, val line, val pos, val base) val breakpoints_old = breakpoints; breakpoints = remqual(l, breakpoints, nil); if (breakpoints == breakpoints_old) - format(std_debug, lit("no such breakpoint\n")); + format(std_debug, lit("no such breakpoint\n"), nao); } else { opt_loglevel = c_num(n); } @@ -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); } @@ -4918,7 +4918,7 @@ val use_sym(val symbol, val package_in) if (found && symbol_package(existing) == package) { if (existing == nil) - uw_throwf(error_s, lit("~a: cannot hide ~s"), self, existing); + uw_throwf(error_s, lit("~a: cannot hide ~s"), self, existing, nao); sethash(package->pk.hidhash, name, existing); existing->s.package = nil; } @@ -1741,7 +1741,7 @@ static val reg_derivative(val exp, val ch) val args = rest(exp); if (sym == set_s || sym == cset_s) { - uw_throwf(error_s, lit("uncompiled regex passed to reg_derivative")); + uw_throwf(error_s, lit("uncompiled regex passed to reg_derivative"), nao); } else if (sym == compound_s) { return reg_derivative_list(args, ch); } else if (sym == optional_s) { |