From a6e350ddef5f6b57a069777508a8729e509614d1 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Fri, 13 Nov 1998 15:58:00 +0000
Subject: [PATCH] * debug.c (scm_debug_options): Bugfix: Set the value of
 scm_stack_checking_enabled_p after setting debug options; #include
 "stackchk.h".  (Thanks to Richard Polton.)

---
 libguile/ChangeLog | 6 ++++++
 libguile/debug.c   | 2 ++
 2 files changed, 8 insertions(+)

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 61654340d..af711f071 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,9 @@
+1998-11-14  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>
+
+	* debug.c (scm_debug_options): Bugfix: Set the value of
+	scm_stack_checking_enabled_p after setting debug options;
+	#include "stackchk.h".  (Thanks to Richard Polton.)
+
 1998-11-13  Radey Shouman  <rshouman@metro2000.com>
 
 	* unif.c (scm_array_contents): removed unnecessary test for 0
diff --git a/libguile/debug.c b/libguile/debug.c
index 507097be9..ad5ff8072 100644
--- a/libguile/debug.c
+++ b/libguile/debug.c
@@ -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;