From 1668d9c036ddb37ca963d15a5e900ebb401474dd Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 30 Jan 2007 02:48:07 +0000
Subject: [PATCH] add TAIL_COPY_THRESHOLD to depth computed for closure bodies
 to avoid runstack overflow

svn: r5505
---
 src/mzscheme/src/fun.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/fun.c b/src/mzscheme/src/fun.c
index a44270f23a..092d08438e 100644
--- a/src/mzscheme/src/fun.c
+++ b/src/mzscheme/src/fun.c
@@ -1331,7 +1331,8 @@ scheme_resolve_closure_compilation(Scheme_Object *_data, Resolve_Info *info,
     data->max_let_depth = (new_info->max_let_depth
                            + num_params
                            + closure_size
-                           + convert_size);
+                           + convert_size
+                           + SCHEME_TAIL_COPY_THRESHOLD);
 
     /* Add code to box set!ed argument variables: */
     for (i = 0; i < num_params; i++) {