From 15c3b1db7ec25f9e9263a91b750fd6b14cfb2e11 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 30 Aug 2006 22:26:47 +0000
Subject: [PATCH] fix non-JIT crash in multiple-value result from first part of
 apply-values

svn: r4197
---
 src/mzscheme/src/syntax.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/syntax.c b/src/mzscheme/src/syntax.c
index 645f54663a..62385a5a8d 100644
--- a/src/mzscheme/src/syntax.c
+++ b/src/mzscheme/src/syntax.c
@@ -1814,7 +1814,7 @@ static Scheme_Object *apply_values_execute(Scheme_Object *data)
   
   f = SCHEME_CAR(data);
 
-  f = _scheme_eval_linked_expr_multi(f);
+  f = _scheme_eval_linked_expr(f);
   if (!SCHEME_PROCP(f)) {
     Scheme_Object *a[1];
     a[0] = f;