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

fix bytecode-compiler step that drops an unused flonum let RHS

Browse Source
This commit is contained in:
Matthew Flatt 2010-06-20 05:25:12 -10:00
parent e947c36a74
commit 8ae46ead66
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5390,7 +5390,7 @@ static Scheme_Object *sfs_let_one(Scheme_Object *o, SFS_Info *info)
et = scheme_get_eval_type(lo->value);
SCHEME_LET_EVAL_TYPE(lo) = (et
| (SCHEME_LET_EVAL_TYPE(lo) & LET_ONE_FLONUM)
| (unused ? 0 : (SCHEME_LET_EVAL_TYPE(lo) & LET_ONE_FLONUM))
| (unused ? LET_ONE_UNUSED : 0));
return o;