diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1997-11-29 10:49:18 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1997-11-29 10:49:18 +0000 |
commit | b6609fc78a35b65b9b84b639e7d25f26d463a02e (patch) | |
tree | d131de29884388fc410c8fe8ffa840f2c89dc3dd /libguile/backtrace.h | |
parent | 8bb7f6466b0697a9e2f4701d2d934b3f78529ffe (diff) | |
download | guile-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/backtrace.h')
-rw-r--r-- | libguile/backtrace.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/backtrace.h b/libguile/backtrace.h index fad89ec37..fd630afef 100644 --- a/libguile/backtrace.h +++ b/libguile/backtrace.h @@ -49,6 +49,8 @@ #include "libguile/__scm.h" +extern SCM scm_the_last_stack_fluid; + void scm_display_error_message SCM_P ((SCM message, SCM args, SCM port)); SCM scm_display_error SCM_P ((SCM stack, SCM port, SCM subr, SCM message, SCM args, SCM rest)); SCM scm_display_backtrace SCM_P ((SCM stack, SCM port, SCM first, SCM depth)); |