diff options
author | Jim Blandy <jimb@red-bean.com> | 1996-11-21 16:28:39 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1996-11-21 16:28:39 +0000 |
commit | dc19d1d29a4701faadad98d5a84010f3ec847b07 (patch) | |
tree | 5ed8b12b9930da76c878adb13dd84229c7903efa /libguile/root.h | |
parent | a31bc6fbbae20f6ddd849a62a05845c0689bf44d (diff) | |
download | guile-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.h | 5 |
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 |