From 974f24ae547ad75dece7737937e3191d21eba5a0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 4 Apr 2011 21:06:53 -0600
Subject: [PATCH] increase the runstack size for a future thread

---
 src/racket/src/future.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/racket/src/future.c b/src/racket/src/future.c
index 4f4f5048b5..e813bc4c00 100644
--- a/src/racket/src/future.c
+++ b/src/racket/src/future.c
@@ -309,7 +309,7 @@ static void future_raise_wrong_type_exn(const char *who,
 
 #define THREAD_POOL_SIZE 16
 #define INITIAL_C_STACK_SIZE 500000
-#define FUTURE_RUNSTACK_SIZE 1000
+#define FUTURE_RUNSTACK_SIZE 10000
 
 typedef struct Scheme_Future_State {
   struct Scheme_Future_Thread_State *pool_threads[THREAD_POOL_SIZE];