From 84e98160c4922846d2cbe7cebde5bc2cf4397674 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 1 Jun 2010 21:25:32 -0600 Subject: [PATCH] fix bug in optimization of (apply ... (list ...)) --- src/racket/src/eval.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/racket/src/eval.c b/src/racket/src/eval.c index f0b3a7fc27..5017f06215 100644 --- a/src/racket/src/eval.c +++ b/src/racket/src/eval.c @@ -3364,8 +3364,7 @@ static Scheme_Object *finish_optimize_app(Scheme_Object *o, Optimize_Info *info, case scheme_application3_type: return finish_optimize_application3((Scheme_App3_Rec *)o, info, context, rator_flags); default: - scheme_signal_error("internal error: finish optimize app"); - return NULL; + return o; /* may be a constant due to constant-folding */ } }