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

* debug.c (scm_debug_options): Bugfix: Set the value of

Browse source 
scm_stack_checking_enabled_p after setting debug options;
#include "stackchk.h".  (Thanks to Richard Polton.)
This commit is contained in:
Mikael Djurfeldt 1998-11-13 15:58:00 +00:00
parent 9879d0f19f
commit a6e350ddef
2 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/debug.c
View file

@ -46,6 +46,7 @@
#include <stdio.h>
#include "_scm.h"
#include "eval.h"
#include "stackchk.h"
#include "throw.h"
#include "genio.h"
#include "macros.h"
@ -85,6 +86,7 @@ scm_debug_options (setting)
}
#endif
SCM_RESET_DEBUG_MODE;
scm_stack_checking_enabled_p = SCM_STACK_CHECKING_P;
scm_debug_eframe_size = 2 * SCM_N_FRAMES;
SCM_ALLOW_INTS
return ans;