From a9fe8b63f5013c25ab84922d0dbd0afd52f3dcd2 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 21 Feb 2014 20:01:07 -0800 Subject: * eval.c (subst_vars): Change throwing of query_error_s to eval_error call. This is a leftover from when this was cloned from its counterpart in match.c. However, I can't think of a way this call can ever be reached. --- ChangeLog | 7 +++++++ eval.c | 3 +-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 18b958ca..23d7836c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2014-02-21 Kaz Kylheku + + * eval.c (subst_vars): Change throwing of query_error_s + to eval_error call. This is a leftover from when this was cloned + from its counterpart in match.c. However, I can't think of a way + this call can ever be reached. + 2014-02-20 Kaz Kylheku * eval.c (macro_form_p, macroexpand_1, macroexpand): New static diff --git a/eval.c b/eval.c index 7ab1fd63..7abf8911 100644 --- a/eval.c +++ b/eval.c @@ -1637,8 +1637,7 @@ static val subst_vars(val forms, val env) forms = cons(str, rest(forms)); continue; } - uw_throwf(query_error_s, lit("unbound variable ~a"), - form, nao); + eval_error(forms, lit("unbound variable ~s"), form, nao); } iter = list_collect(iter, form); -- cgit v1.2.3