mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 23:50:19 +02:00
Code Activity

It's an "eval closure", not an "eval thunk." A thunk is a

Browse source 
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*.
This commit is contained in:
Jim Blandy 1996-11-21 16:28:39 +00:00
parent a31bc6fbba
commit dc19d1d29a
5 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/root.c
View file

@ -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;
}