summaryrefslogtreecommitdiff
path: root/libguile/root.h
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/root.h
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/root.h')
-rw-r--r--libguile/root.h5
1 files changed, 3 insertions, 2 deletions
diff --git a/libguile/root.h b/libguile/root.h
index b71305563..37857d47d 100644
--- a/libguile/root.h
+++ b/libguile/root.h
@@ -109,7 +109,7 @@ typedef struct scm_root_state
SCM def_errp;
SCM system_transformer;
- SCM top_level_lookup_thunk_var;
+ SCM top_level_lookup_closure_var;
SCM handle; /* The root object for this root state */
SCM parent; /* The parent root object */
@@ -134,7 +134,8 @@ typedef struct scm_root_state
#define scm_def_inp (scm_root->def_inp)
#define scm_def_outp (scm_root->def_outp)
#define scm_def_errp (scm_root->def_errp)
-#define scm_top_level_lookup_thunk_var (scm_root->top_level_lookup_thunk_var)
+#define scm_top_level_lookup_closure_var \
+ (scm_root->top_level_lookup_closure_var)
#define scm_system_transformer (scm_root->system_transformer)
#ifdef USE_THREADS