summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c15
1 files changed, 15 insertions, 0 deletions
diff --git a/eval.c b/eval.c
index 3c8d83f5..ab54586e 100644
--- a/eval.c
+++ b/eval.c
@@ -530,6 +530,11 @@ val lookup_global_var(val sym)
if2(autoload_try_var(sym), gethash(top_vb, sym)));
}
+val lookup_global_fun(val sym)
+{
+ return lookup_fun(nil, sym);
+}
+
val lookup_var(val env, val sym)
{
if (env) {
@@ -593,6 +598,16 @@ loc lookup_var_l(val env, val sym)
uw_throwf(error_s, lit("variable ~s unexpectedly unbound"), sym, nao);
}
+val lookup_dynamic_var(val sym)
+{
+ return lookup_var(nil, sym);
+}
+
+val lookup_dynamic_sym_lisp1(val sym)
+{
+ return lookup_sym_lisp1(nil, sym);
+}
+
static val lookup_mac(val menv, val sym);
val lookup_fun(val env, val sym)