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

fix optimizer bug

Browse Source 
Fix a bug introduced by one of the last few bytecode-compiler
changes.
This commit is contained in:
Matthew Flatt 2016-03-05 13:08:54 -07:00
parent 3d484cf560
commit 7e2195fdba
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/racket/src/optimize.c
View File

@ -7065,7 +7065,7 @@ static Scheme_Object *optimize_lets(Scheme_Object *form, Optimize_Info *info, in
break;
}
if (prev)
if (prev && SAME_TYPE(SCHEME_TYPE(prev), scheme_sequence_type))
form = optimize_sequence(form, info, context, 0);
}