From a9fe8b63f5013c25ab84922d0dbd0afd52f3dcd2 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
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.

---
 eval.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'eval.c')

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