diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2014-02-21 20:01:07 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2014-02-21 20:01:07 -0800 |
commit | a9fe8b63f5013c25ab84922d0dbd0afd52f3dcd2 (patch) | |
tree | 821eaa5b29ddf7a12d8a2bed288341943b9012f4 | |
parent | 4c5b04a6cac0d43e83aa2dc4f800eab42e908486 (diff) | |
download | txr-a9fe8b63f5013c25ab84922d0dbd0afd52f3dcd2.tar.gz txr-a9fe8b63f5013c25ab84922d0dbd0afd52f3dcd2.tar.bz2 txr-a9fe8b63f5013c25ab84922d0dbd0afd52f3dcd2.zip |
* 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.
-rw-r--r-- | ChangeLog | 7 | ||||
-rw-r--r-- | eval.c | 3 |
2 files changed, 8 insertions, 2 deletions
@@ -1,3 +1,10 @@ +2014-02-21 Kaz Kylheku <kaz@kylheku.com> + + * 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 <kaz@kylheku.com> * eval.c (macro_form_p, macroexpand_1, macroexpand): New static @@ -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); |