summaryrefslogtreecommitdiff
path: root/libguile/root.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/root.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/root.c')
-rw-r--r--libguile/root.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/root.c b/libguile/root.c
index 23c32654b..81310f684 100644
--- a/libguile/root.c
+++ b/libguile/root.c
@@ -83,7 +83,7 @@ mark_root (root)
scm_gc_mark (s->def_inp);
scm_gc_mark (s->def_outp);
scm_gc_mark (s->def_errp);
- scm_gc_mark (s->top_level_lookup_thunk_var);
+ scm_gc_mark (s->top_level_lookup_closure_var);
scm_gc_mark (s->system_transformer);
return SCM_ROOT_STATE (root) -> parent;
}