From d94919802f52dd6d7ec2ddfba893a54901a7bca0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 9 Feb 2008 15:46:26 +0000
Subject: [PATCH] re-disable sfs compiler pass (yet another bug that I somehow
 overlooked)

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

diff --git a/src/mzscheme/src/eval.c b/src/mzscheme/src/eval.c
index 158d26c731..b621750b08 100644
--- a/src/mzscheme/src/eval.c
+++ b/src/mzscheme/src/eval.c
@@ -3258,6 +3258,8 @@ Scheme_Object *scheme_sfs(Scheme_Object *o, SFS_Info *info, int max_let_depth)
 {
   int init, i;
 
+  return o;
+
   SFS_LOG(printf("sfs %d\n", SCHEME_TYPE(o)));
 
   if (!info) {