From bfd40298d8802e87c3d908bd1d61caa217b56763 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 7 May 2007 23:00:44 +0000 Subject: [PATCH] fix optimizer bug related to dropping unneeeded let-values clauses svn: r6170 --- src/mzscheme/src/syntax.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/mzscheme/src/syntax.c b/src/mzscheme/src/syntax.c index 30deff1abf..80821f869b 100644 --- a/src/mzscheme/src/syntax.c +++ b/src/mzscheme/src/syntax.c @@ -3181,7 +3181,10 @@ scheme_resolve_lets(Scheme_Object *form, Resolve_Info *info) if (i < 0) { /* All unused and omittable */ linfo = scheme_resolve_info_extend(info, 0, total, 0); - return scheme_resolve_expr((Scheme_Object *)clv, linfo); + first = scheme_resolve_expr((Scheme_Object *)clv, linfo); + if (info->max_let_depth < linfo->max_let_depth) + info->max_let_depth = linfo->max_let_depth; + return first; } } }