fix missig return (PR 10149)

svn: r14229
2009-03-23 12:34:40 +00:00 · 2009-03-23 12:34:40 +00:00 · 3e039705fa
commit 3e039705fa
parent bb2268b9be
1 changed files with 2 additions and 1 deletions
--- 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,