From 7ba3c6d79ba3458ec591b2e65a763106316f2737 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 9 Feb 2008 15:06:25 +0000
Subject: [PATCH] fix sfs for module(!)

svn: r8602
---
 src/mzscheme/src/eval.c   | 4 +++-
 src/mzscheme/src/module.c | 4 +++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/mzscheme/src/eval.c b/src/mzscheme/src/eval.c
index fe0d9fb608..0da553a224 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 0
+#define MAX_SFS_CLEARING 1
 
 #define SFS_LOG(x) /* nothing */
 
@@ -3258,6 +3258,8 @@ Scheme_Object *scheme_sfs(Scheme_Object *o, SFS_Info *info, int max_let_depth)
 {
   int init, i;
 
+  SFS_LOG(printf("sfs %d\n", SCHEME_TYPE(o)));
+
   if (!info) {
     info = scheme_new_sfs_info(max_let_depth);
   }
diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c
index 4bc382f0a5..86b26ae912 100644
--- a/src/mzscheme/src/module.c
+++ b/src/mzscheme/src/module.c
@@ -4637,7 +4637,9 @@ module_sfs(Scheme_Object *data, SFS_Info *old_info)
 
     info = scheme_new_sfs_info(m->max_let_depth);
     info->for_mod = 1;
-    scheme_sfs(data, info, m->max_let_depth);
+    scheme_sfs(scheme_make_syntax_resolved(MODULE_EXPD, data), 
+               info, 
+               m->max_let_depth);
     return data;
   }