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

fix recently introduced optimizer bug (affected the kanren test)

Browse Source 
svn: r18016
This commit is contained in:
Matthew Flatt 2010-02-08 17:51:00 +00:00
parent 49702f8f59
commit 13b5f7e095
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3573,12 +3573,13 @@ scheme_optimize_lets(Scheme_Object *form, Optimize_Info *info, int for_inline, i
value = scheme_optimize_clone(1, value, rhs_info, 0, 0); value = scheme_optimize_clone(1, value, rhs_info, 0, 0);
if (value) { if (value) {
info = scheme_optimize_info_add_frame(info, extract_depth, 0, 0); info = scheme_optimize_info_add_frame(sub_info, extract_depth, 0, 0);
info->inline_fuel = 0; info->inline_fuel = 0;
value = scheme_optimize_expr(value, info, context); value = scheme_optimize_expr(value, info, context);
info->next->single_result = info->single_result; sub_info->single_result = info->single_result;
info->next->preserves_marks = info->preserves_marks; sub_info->preserves_marks = info->preserves_marks;
scheme_optimize_info_done(info); scheme_optimize_info_done(info);
if (for_inline > 1) scheme_optimize_info_done(sub_info);
return value; return value;
} }
} }