summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2015-10-28 06:02:35 -0700
committerKaz Kylheku <kaz@kylheku.com>2015-10-28 06:02:35 -0700
commite13399f6ca7ae0c59c1e176ff5e4c78d00f82c69 (patch)
tree36f89c1e7324dc773f4a6663263820472d61823d
parent2b91729a138ded1c0d5949072d1e723783fd5f90 (diff)
downloadtxr-e13399f6ca7ae0c59c1e176ff5e4c78d00f82c69.tar.gz
txr-e13399f6ca7ae0c59c1e176ff5e4c78d00f82c69.tar.bz2
txr-e13399f6ca7ae0c59c1e176ff5e4c78d00f82c69.zip
Expose eval_error out of eval module.
* eval.c (eval_error): Static function made external. * eval.h (eval_error): Declared.
-rw-r--r--eval.c2
-rw-r--r--eval.h1
2 files changed, 2 insertions, 1 deletions
diff --git a/eval.c b/eval.c
index 6fe44e68..4c2f6411 100644
--- a/eval.c
+++ b/eval.c
@@ -153,7 +153,7 @@ static void env_vb_to_fb(val env)
}
}
-noreturn static val eval_error(val form, val fmt, ...)
+noreturn val eval_error(val form, val fmt, ...)
{
uses_or2;
va_list vl;
diff --git a/eval.h b/eval.h
index 57a9004c..9653a6f7 100644
--- a/eval.h
+++ b/eval.h
@@ -29,6 +29,7 @@ extern val hash_lit_s, hash_construct_s, struct_lit_s, qref_s;
extern val eval_error_s;
extern val last_form_evaled, last_form_expanded;
+noreturn val eval_error(val form, val fmt, ...);
val make_env(val fbindings, val vbindings, val up_env);
val env_fbind(val env, val sym, val fun);
val env_vbind(val env, val sym, val obj);