add TAIL_COPY_THRESHOLD to depth computed for closure bodies to avoid runstack overflow

svn: r5505
2007-01-30 02:48:07 +00:00 · 2007-01-30 02:48:07 +00:00 · 1668d9c036
commit 1668d9c036
parent 6596821faf
1 changed files with 2 additions and 1 deletions
--- 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++) {