fix failure in cross-module inliner

Recent compiler changes expose a bug in the cross-module
inliner when it turns out to be unable to inline a candidate.
This commit is contained in:
Matthew Flatt 2016-02-18 14:09:35 -07:00
parent 1005701b8e
commit a0f7b618f7

View File

@ -4437,7 +4437,9 @@ static Scheme_Object *unresolve_expr(Scheme_Object *e, Unresolve_Info *ui, int a
pos = unresolve_stack_push(ui, 1, 1);
rhs = unresolve_expr(lo->value, ui, 0);
if (!rhs) return_NULL;
body = unresolve_expr(lo->body, ui, 0);
if (!body) return_NULL;
vars = unresolve_stack_pop(ui, pos, 1);