From 51d394a1c51f0a3892eacfcb2ff55b6a98b7003c Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Mon, 30 Mar 1998 21:02:31 +0000
Subject: [PATCH] * coop.c (COOP_STKSIZE): Use SCM_EVAL_STACK.

---
 libguile/coop.c | 6 ++++--
 1 file 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) \