diff --git a/racket/src/racket/src/optimize.c b/racket/src/racket/src/optimize.c index 521bae73c7..8a08d2d081 100644 --- a/racket/src/racket/src/optimize.c +++ b/racket/src/racket/src/optimize.c @@ -921,6 +921,8 @@ static Scheme_Object *optimize_ignored(Scheme_Object *e, Optimize_Info *info, int i; body = head->body; + if (0 == head->num_clauses) + lv = (Scheme_IR_Let_Value *)body; for (i = head->num_clauses; i--; ) { lv = (Scheme_IR_Let_Value *)body; body = lv->body;