diff options
| author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-08-23 01:21:00 +0000 |
|---|---|---|
| committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-08-23 01:21:00 +0000 |
| commit | 39f1ef511c5263c36cd82d18b834ce6b54022046 (patch) | |
| tree | 269c22d36dbb11c02c3ec818b17f65c88bd68487 /libguile/stackchk.c | |
| parent | b7ff98ddd6c01e275066b1f6812c7dd83c1c5c6d (diff) | |
* __scm.h, stackchk.h, stackchk.c: Guile now performs stack
checking.
Diffstat (limited to 'libguile/stackchk.c')
| -rw-r--r-- | libguile/stackchk.c | 12 |
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" } - |