From a0f7b618f7f201b9f2299afc7f41c91a7995a9fd Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 18 Feb 2016 14:09:35 -0700 Subject: [PATCH] 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. --- racket/src/racket/src/resolve.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/racket/src/racket/src/resolve.c b/racket/src/racket/src/resolve.c index bac7a04c6d..bfdfbd426e 100644 --- a/racket/src/racket/src/resolve.c +++ b/racket/src/racket/src/resolve.c @@ -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);