From 70f5375d6b96c6e67fed774d019d800481ceabe3 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Sat, 12 Jul 2008 10:40:22 -0700
Subject: [PATCH] refixing trace-define-syntax.

---
 scheme/ikarus.trace.ss | 2 +-
 scheme/last-revision   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/ikarus.trace.ss b/scheme/ikarus.trace.ss
index be7a221..1ed115f 100644
--- a/scheme/ikarus.trace.ss
+++ b/scheme/ikarus.trace.ss
@@ -75,7 +75,7 @@
     (lambda (name x)
       (cond
         [(procedure? x) 
-         (make-traced-procedure name x)]
+         (make-traced-procedure name x syntax->datum)]
         [(variable-transformer? x)
          (make-variable-transformer
            (make-traced-procedure name 
diff --git a/scheme/last-revision b/scheme/last-revision
index effd6e7..f768f58 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1534
+1535