From bae5ca3d5927050749d44706a56e12831c14c5eb Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 9 Feb 2008 15:07:35 +0000
Subject: [PATCH] turn off over-agressive sfs clearing

svn: r8603
---
 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 0da553a224..ac36f09901 100644
--- a/src/mzscheme/src/eval.c
+++ b/src/mzscheme/src/eval.c
@@ -3250,7 +3250,7 @@ Scheme_Object *scheme_optimize_shift(Scheme_Object *expr, int delta, int after_d
 /*========================================================================*/
 
 /* For debugging and measuring the worst-case cost of sfs clears: */
-#define MAX_SFS_CLEARING 1
+#define MAX_SFS_CLEARING 0
 
 #define SFS_LOG(x) /* nothing */