From 39c29c2c59f36a54817c21c2b86e28b30abd3dc6 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 9 Feb 2008 15:17:38 +0000
Subject: [PATCH] argh --- disable sfs conversion, (found a bug)

svn: r8604
---
 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 ac36f09901..8da7938dca 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) {