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

fix bytecode optimizer bug related to a procedure whose body is optimized such that it no longer needs to refer to any global

Browse Source 
svn: r7225
This commit is contained in:
Matthew Flatt 2007-08-30 03:07:30 +00:00
parent 143faecd33
commit ed1e7e7ef6
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/fun.c
View File

@ -920,6 +920,8 @@ scheme_optimize_closure_compilation(Scheme_Object *_data, Optimize_Info *info)
cl->base_closure_map = dcm;
if (scheme_env_uses_toplevel(info))
cl->has_tl = 1;
else
cl->has_tl = 0;
cl->body_size = info->size;
info->size++;