summaryrefslogtreecommitdiff
path: root/libguile/stackchk.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/stackchk.c')
-rw-r--r--libguile/stackchk.c12
1 files changed, 4 insertions, 8 deletions
diff --git a/libguile/stackchk.c b/libguile/stackchk.c
index 53a7556be..de7c96c03 100644
--- a/libguile/stackchk.c
+++ b/libguile/stackchk.c
@@ -48,14 +48,14 @@
/* {Stack Checking}
*/
-#ifdef SCM_STACK_CHECK
-int scm_check_stack_p;
+#ifdef STACK_CHECKING
+int scm_stack_checking_enabled_p;
void
scm_report_stack_overflow ()
{
- scm_check_stack_p = 0;
- scm_wta (SCM_UNDEFINED, (char *) STACK_SCM_OVSCM_FLOW, NULL);
+ scm_stack_checking_enabled_p = 0;
+ scm_wta (SCM_UNDEFINED, (char *) SCM_STACK_OVFLOW, NULL);
}
#endif
@@ -104,9 +104,5 @@ void
scm_init_stackchk ()
#endif
{
-#ifdef SCM_STACK_CHECK
- scm_check_stack_p = 1;
-#endif
#include "stackchk.x"
}
-