diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-03-30 21:02:31 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-03-30 21:02:31 +0000 |
commit | 51d394a1c51f0a3892eacfcb2ff55b6a98b7003c (patch) | |
tree | b15754bc12c709e910dbe8087d985896a7721628 | |
parent | 0e929db3d1b632a9f0892c78b2b2acbedce196f1 (diff) | |
download | guile-51d394a1c51f0a3892eacfcb2ff55b6a98b7003c.tar.gz |
* coop.c (COOP_STKSIZE): Use SCM_EVAL_STACK.
-rw-r--r-- | libguile/coop.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/libguile/coop.c b/libguile/coop.c index 74ca44ccc..fff3f6811 100644 --- a/libguile/coop.c +++ b/libguile/coop.c @@ -40,13 +40,15 @@ * If you do not wish that, delete this exception notice. */ -/* $Id: coop.c,v 1.6 1998-02-06 18:55:25 mdj Exp $ */ +/* $Id: coop.c,v 1.7 1998-03-30 21:02:31 mdj Exp $ */ /* Cooperative thread library, based on QuickThreads */ #include <qt.h> +#include "eval.h" -#define COOP_STKSIZE (0x10000) +/* #define COOP_STKSIZE (0x10000) */ +#define COOP_STKSIZE (SCM_EVAL_STACK) /* `alignment' must be a power of 2. */ #define COOP_STKALIGN(sp, alignment) \ |