summaryrefslogtreecommitdiff
path: root/libguile/eval.c
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1996-11-21 16:28:39 +0000
committerJim Blandy <jimb@red-bean.com>1996-11-21 16:28:39 +0000
commitdc19d1d29a4701faadad98d5a84010f3ec847b07 (patch)
tree5ed8b12b9930da76c878adb13dd84229c7903efa /libguile/eval.c
parenta31bc6fbbae20f6ddd849a62a05845c0689bf44d (diff)
downloadguile-dc19d1d29a4701faadad98d5a84010f3ec847b07.tar.gz
It's an "eval closure", not an "eval thunk." A thunk is a
function of no arguments. * root.h (struct scm_root_state): Renamed top_level_lookup_closure_var from top_level_lookup_thunk_var. (scm_top_level_lookup_closure_var): Renamed from scm_top_level_lookup_thunk_var. * root.c (mark_root): Uses changed. * gdbint.c (gdb_eval, gdb_binding): Uses changed. * init.c (scm_start_stack): Uses changed. * eval.c (scm_eval, scm_eval_x, scm_init_eval): Rename uses. Change scheme-visible name to *top-level-lookup-closure* from *top-level-lookup-thunk*.
Diffstat (limited to 'libguile/eval.c')
-rw-r--r--libguile/eval.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index 4224f6b3e..fe6b96b31 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -2804,7 +2804,7 @@ scm_eval (obj)
SCM obj;
{
return
- scm_eval_3(obj, 1, scm_top_level_env(SCM_CDR(scm_top_level_lookup_thunk_var)));
+ scm_eval_3(obj, 1, scm_top_level_env(SCM_CDR(scm_top_level_lookup_closure_var)));
}
/* SCM_PROC(s_eval_x, "eval!", 1, 0, 0, scm_eval_x); */
@@ -2816,7 +2816,7 @@ scm_eval_x (obj)
return
scm_eval_3(obj,
0,
- scm_top_level_env (SCM_CDR (scm_top_level_lookup_thunk_var)));
+ scm_top_level_env (SCM_CDR (scm_top_level_lookup_closure_var)));
}
SCM_PROC (s_macro_eval_x, "macro-eval!", 2, 0, 0, scm_macro_eval_x);
@@ -2902,8 +2902,8 @@ scm_init_eval ()
scm_make_synt (s_delay, scm_makacro, scm_m_delay);
/* end of acros */
- scm_top_level_lookup_thunk_var =
- scm_sysintern("*top-level-lookup-thunk*", SCM_BOOL_F);
+ scm_top_level_lookup_closure_var =
+ scm_sysintern("*top-level-lookup-closure*", SCM_BOOL_F);
scm_i_and = scm_make_synt ("and", scm_makmmacro, scm_m_and);
scm_i_begin = scm_make_synt ("begin", scm_makmmacro, scm_m_begin);