suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix optimizer bug related to dropping unneeeded let-values clauses

Browse Source 
svn: r6170
This commit is contained in:
Matthew Flatt 2007-05-07 23:00:44 +00:00
parent 2f44f07916
commit bfd40298d8
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/mzscheme/src/syntax.c
View File

@ -3181,7 +3181,10 @@ scheme_resolve_lets(Scheme_Object *form, Resolve_Info *info)
if (i < 0) { if (i < 0) {
/* All unused and omittable */ /* All unused and omittable */
linfo = scheme_resolve_info_extend(info, 0, total, 0); 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;
} }
} }
} }