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

* init.c (scm_start_stack): Removed initialization of

Browse source 
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.
This commit is contained in:
Mikael Djurfeldt 1997-11-29 10:49:18 +00:00
parent 8bb7f6466b
commit b6609fc78a
7 changed files with 27 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/backtrace.c
View file

@ -68,6 +68,8 @@
return SCM_BOOL_F;
#endif
SCM scm_the_last_stack_fluid;
static void display_header SCM_P ((SCM source, SCM port));
static void
display_header (source, port)
@ -539,7 +541,7 @@ SCM_PROC(s_backtrace, "backtrace", 0, 0, 0, scm_backtrace);
SCM
scm_backtrace ()
{
SCM the_last_stack = scm_fluid_ref (SCM_CDR (scm_the_last_stack_var));
SCM the_last_stack = scm_fluid_ref (SCM_CDR (scm_the_last_stack_fluid));
if (SCM_NFALSEP (the_last_stack))
{
scm_newline (scm_cur_outp);
@ -571,7 +573,7 @@ void
scm_init_backtrace ()
{
SCM f = scm_make_fluid ();
scm_the_last_stack_var = scm_sysintern ("the-last-stack", f);
scm_the_last_stack_fluid = scm_sysintern ("the-last-stack", f);
#include "backtrace.x"
}