25 |
#include "libguile/__scm.h" |
#include "libguile/__scm.h" |
26 |
|
|
27 |
#include "libguile/continuations.h" |
#include "libguile/continuations.h" |
|
#ifdef DEBUG_EXTENSIONS |
|
28 |
#include "libguile/debug.h" |
#include "libguile/debug.h" |
29 |
#endif |
|
30 |
|
|
31 |
|
|
32 |
/* With debug extensions we have the possibility to use the debug options |
/* With debug options we have the possibility to disable stack checking. |
|
* to disable stack checking. |
|
33 |
*/ |
*/ |
|
#ifdef DEBUG_EXTENSIONS |
|
34 |
#define SCM_STACK_CHECKING_P SCM_STACK_LIMIT |
#define SCM_STACK_CHECKING_P SCM_STACK_LIMIT |
|
#else |
|
|
/* *fixme* This option should be settable also without debug extensions. */ |
|
|
#define SCM_STACK_LIMIT 100000 |
|
|
#define SCM_STACK_CHECKING_P 1 |
|
|
#endif |
|
35 |
|
|
36 |
#ifdef STACK_CHECKING |
#ifdef STACK_CHECKING |
37 |
# if SCM_STACK_GROWS_UP |
# if SCM_STACK_GROWS_UP |