From 350903f027df3709b75808119345489bf67a0b77 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 9 Feb 2008 16:02:45 +0000
Subject: [PATCH] another sfs attempt

svn: r8607
---
 src/mzscheme/src/eval.c   | 2 --
 src/mzscheme/src/syntax.c | 3 +++
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/mzscheme/src/eval.c b/src/mzscheme/src/eval.c
index b621750b08..158d26c731 100644
--- a/src/mzscheme/src/eval.c
+++ b/src/mzscheme/src/eval.c
@@ -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) {
diff --git a/src/mzscheme/src/syntax.c b/src/mzscheme/src/syntax.c
index 98f80086c3..eacc0f602e 100644
--- a/src/mzscheme/src/syntax.c
+++ b/src/mzscheme/src/syntax.c
@@ -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;
 }