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

* backtrace.c: Added #include "fluids.h"

Browse source 
(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 01:10:21 +00:00
parent e085f7a634
commit a5d6d578d6
4 changed files with 18 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
NEWS
View file

@ -49,6 +49,8 @@ support for it.
The readline library is available via anonymous FTP from any GNU The readline library is available via anonymous FTP from any GNU
mirror site; the canonical location is "ftp://prep.ai.mit.edu/pub/gnu". mirror site; the canonical location is "ftp://prep.ai.mit.edu/pub/gnu".
** the-last-stack is now a fluid.
* Changes to the procedure for linking libguile with your programs * Changes to the procedure for linking libguile with your programs
** You can now use the 'build-guile' utility to link against Guile. ** You can now use the 'build-guile' utility to link against Guile.

9
libguile/ChangeLog
View file

@ -1,3 +1,12 @@
Sat Nov 29 01:16:53 1997 Mikael Djurfeldt <mdj@kenneth>
* 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.
1997-11-28 Tim Pierce <twp@skepsis.com> 1997-11-28 Tim Pierce <twp@skepsis.com>
* iselect.c: #ifdef USE_THREADS around thread-related includes. * iselect.c: #ifdef USE_THREADS around thread-related includes.

9
libguile/backtrace.c
View file

@ -51,6 +51,7 @@
#include "struct.h" #include "struct.h"
#include "strports.h" #include "strports.h"
#include "throw.h" #include "throw.h"
#include "fluids.h"
#include "backtrace.h" #include "backtrace.h"
@ -538,10 +539,11 @@ SCM_PROC(s_backtrace, "backtrace", 0, 0, 0, scm_backtrace);
SCM SCM
scm_backtrace () scm_backtrace ()
{ {
if (SCM_NFALSEP (SCM_CDR (scm_the_last_stack_var))) SCM the_last_stack = scm_fluid_ref (SCM_CDR (scm_the_last_stack_var));
if (SCM_NFALSEP (the_last_stack))
{ {
scm_newline (scm_cur_outp); scm_newline (scm_cur_outp);
scm_display_backtrace (SCM_CDR (scm_the_last_stack_var), scm_display_backtrace (the_last_stack,
scm_cur_outp, scm_cur_outp,
SCM_UNDEFINED, SCM_UNDEFINED,
SCM_UNDEFINED); SCM_UNDEFINED);
@ -568,7 +570,8 @@ scm_backtrace ()
void void
scm_init_backtrace () scm_init_backtrace ()
{ {
scm_the_last_stack_var = scm_sysintern ("the-last-stack", SCM_BOOL_F); SCM f = scm_make_fluid ();
scm_the_last_stack_var = scm_sysintern ("the-last-stack", f);
#include "backtrace.x" #include "backtrace.x"
} }

2
libguile/init.c
View file

@ -394,7 +394,6 @@ scm_boot_guile_1 (base, closure)
scm_init_alist (); scm_init_alist ();
scm_init_arbiters (); scm_init_arbiters ();
scm_init_async (); scm_init_async ();
scm_init_backtrace ();
scm_init_boolean (); scm_init_boolean ();
scm_init_chars (); scm_init_chars ();
scm_init_continuations (); scm_init_continuations ();
@ -402,6 +401,7 @@ scm_boot_guile_1 (base, closure)
scm_init_eq (); scm_init_eq ();
scm_init_error (); scm_init_error ();
scm_init_fluids (); scm_init_fluids ();
scm_init_backtrace (); /* Requires fluids */
scm_init_fports (); scm_init_fports ();
scm_init_filesys (); scm_init_filesys ();
scm_init_gc (); scm_init_gc ();