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

Ignore fuel in optimize_for_inline when it's used just to get a known procedure

Browse Source 
Fix 7f61a6
This commit is contained in:
Gustavo Massaccesi 2015-02-14 10:13:54 -03:00 committed by Matthew Flatt
parent 714b7684fe
commit 9c67f8be6a
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

@ -1711,7 +1711,7 @@ Scheme_Object *optimize_for_inline(Optimize_Info *info, Scheme_Object *le, int a
int nested_count = 0, outside_nested = 0, already_opt = optimized_rator, nonleaf, noapp;
noapp = !app && !app2 && !app3;
if ((info->inline_fuel < 0 || noapp) && info->has_nonleaf)
if ((info->inline_fuel < 0) && info->has_nonleaf && !noapp)
return NULL;
/* Move inside `let' bindings, so we can convert ((let (....) proc) arg ...)