From 3e039705fa2385195a5c378f1d6916e1ab090cb7 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 23 Mar 2009 12:34:40 +0000
Subject: [PATCH] fix missig return (PR 10149)

svn: r14229
---
 src/mzscheme/src/eval.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/eval.c b/src/mzscheme/src/eval.c
index 434288e9d2..0e379b0ddd 100644
--- a/src/mzscheme/src/eval.c
+++ b/src/mzscheme/src/eval.c
@@ -7104,7 +7104,8 @@ static Scheme_Object **evacuate_runstack(int num_rands, Scheme_Object **rands, S
     rands = p->ku.apply.tail_rands;
     p->ku.apply.tail_rands = NULL;
     return rands;
-  }
+  } else
+    return rands;
 }
 
 static Scheme_Dynamic_Wind *intersect_dw(Scheme_Dynamic_Wind *a, Scheme_Dynamic_Wind *b,