From 70f5375d6b96c6e67fed774d019d800481ceabe3 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum 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