94 |
* These may be defined or undefined. |
* These may be defined or undefined. |
95 |
*/ |
*/ |
96 |
|
|
|
/* Old async mechanism */ |
|
|
/* #define GUILE_OLD_ASYNC_CLICK */ |
|
|
|
|
97 |
/* #define GUILE_DEBUG_FREELIST */ |
/* #define GUILE_DEBUG_FREELIST */ |
98 |
|
|
99 |
/* All the number support there is. |
/* All the number support there is. |
148 |
# define SCM_API extern |
# define SCM_API extern |
149 |
#endif |
#endif |
150 |
|
|
151 |
|
#if defined (SCM_ENABLE_DEPRECATED) |
152 |
|
|
153 |
|
/* These options are always active. |
154 |
|
*/ |
155 |
|
#define USE_THREADS |
156 |
|
#define GUILE_ISELECT |
157 |
|
|
158 |
|
#endif |
159 |
|
|
160 |
|
|
161 |
|
|
162 |
/* What did the configure script discover about the outside world? */ |
/* What did the configure script discover about the outside world? */ |
406 |
#endif |
#endif |
407 |
|
|
408 |
|
|
|
#ifndef USE_THREADS |
|
|
#define SCM_CRITICAL_SECTION_START |
|
|
#define SCM_CRITICAL_SECTION_END |
|
|
#define SCM_THREAD_SWITCHING_CODE |
|
|
#endif |
|
|
|
|
409 |
#define SCM_ASYNC_TICK /*fixme* should change names */ \ |
#define SCM_ASYNC_TICK /*fixme* should change names */ \ |
410 |
do { \ |
do { \ |
411 |
if (scm_root->pending_asyncs) \ |
if (scm_root->pending_asyncs) \ |