summaryrefslogtreecommitdiff
path: root/libguile/root.h
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1997-11-29 10:49:18 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1997-11-29 10:49:18 +0000
commitb6609fc78a35b65b9b84b639e7d25f26d463a02e (patch)
treed131de29884388fc410c8fe8ffa840f2c89dc3dd /libguile/root.h
parent8bb7f6466b0697a9e2f4701d2d934b3f78529ffe (diff)
downloadguile-b6609fc78a35b65b9b84b639e7d25f26d463a02e.tar.gz
* init.c (scm_start_stack): Removed initialization of
scm_the_last_stack_var. * backtrace.h: Declare scm_the_last_stack_var. * backtrace.c: Define scm_the_last_stack_var. * root.c (mark_root): Don't mark the_last_stack_var. * root.h (scm_root_state): Removed the_last_stack_var. * throw.c: Added #include "fluids.h" (ss_handler): `the-last-stack' is now a fluid. * (backtrace.h, backtrace.c, throw.c): Renamed the_last_stack_var --> the_last_stack_fluid. * backtrace.c: Added #include "fluids.h" (scm_init_backtrace): Initialize `the-last-stack' to a fluid. (scm_backtrace): `the-last-stack' is now a fluid. * init.c (scm_boot_guile_1): Moved call to scm_init_backtrace after scm_init_fluids.
Diffstat (limited to 'libguile/root.h')
-rw-r--r--libguile/root.h3
1 files changed, 0 insertions, 3 deletions
diff --git a/libguile/root.h b/libguile/root.h
index 8f1545f85..598bade08 100644
--- a/libguile/root.h
+++ b/libguile/root.h
@@ -115,8 +115,6 @@ typedef struct scm_root_state
SCM system_transformer;
SCM top_level_lookup_closure_var;
- SCM the_last_stack_var;
-
SCM handle; /* The root object for this root state */
SCM parent; /* The parent root object */
} scm_root_state;
@@ -143,7 +141,6 @@ typedef struct scm_root_state
#define scm_top_level_lookup_closure_var \
(scm_root->top_level_lookup_closure_var)
#define scm_system_transformer (scm_root->system_transformer)
-#define scm_the_last_stack_var (scm_root->the_last_stack_var)
#ifdef USE_THREADS
#define scm_root ((scm_root_state *) SCM_THREAD_LOCAL_DATA)