refixing trace-define-syntax.

2008-07-12 10:40:22 -07:00 · 2008-07-12 10:40:22 -07:00 · 70f5375d6b
parent eccca7f4ea
commit 70f5375d6b
2 changed files with 2 additions and 2 deletions
--- 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 
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1534
+1535