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

another sfs attempt

Browse Source 
svn: r8607
This commit is contained in:
Matthew Flatt 2008-02-09 16:02:45 +00:00
parent d94919802f
commit 350903f027
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3258,8 +3258,6 @@ 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) {

3
src/mzscheme/src/syntax.c
View File

@ -2099,6 +2099,9 @@ apply_values_sfs(Scheme_Object *data, SFS_Info *info)
f = scheme_sfs_expr(f, info, -1);
e = scheme_sfs_expr(e, info, -1);
SCHEME_CAR(data) = f;
SCHEME_CDR(data) = e;
return data;
}