From a450214c0813ef9268e28207eb21dbfedf5221ed Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 29 Aug 2006 02:32:13 +0000
Subject: [PATCH] temporary fix for a bug in the cwv optimizer

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

diff --git a/src/mzscheme/src/eval.c b/src/mzscheme/src/eval.c
index 687a2b0dea..c1b3ac16e8 100644
--- a/src/mzscheme/src/eval.c
+++ b/src/mzscheme/src/eval.c
@@ -2343,7 +2343,7 @@ Scheme_Object *scheme_optimize_apply_values(Scheme_Object *f, Scheme_Object *e,
        If we can shift-clone it, then it will be back in the right
        coordinates. */
     
-    cloned = scheme_optimize_clone(1, e, info, 0, 0);
+    cloned = NULL; /* scheme_optimize_clone(1, e, info, 0, 0); */
     if (cloned) {
       app2->rator = f_is_proc;
       app2->rand = cloned;