suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix sfs for module(!)

Browse Source 
svn: r8602
This commit is contained in:
Matthew Flatt 2008-02-09 15:06:25 +00:00
parent a1b8ba51ad
commit 7ba3c6d79b
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mzscheme/src/eval.c
View File

@ -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);
}

4
src/mzscheme/src/module.c
View File

@ -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;
}