From 65dc2bc40dfbabe4d58cc8ea1ade026d4dbb29ee Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Mon, 6 Apr 2009 17:21:56 +0300
Subject: [PATCH] trace-define now does not raise an error when given a
 non-procedure

---
 scheme/last-revision       | 2 +-
 scheme/psyntax.expander.ss | 3 +--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/scheme/last-revision b/scheme/last-revision
index 805e7ae..2358ac3 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1754
+1755
diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss
index f8b0296..e4f32ee 100644
--- a/scheme/psyntax.expander.ss
+++ b/scheme/psyntax.expander.ss
@@ -1260,8 +1260,7 @@
                        (let ((v ,expr))
                          (if (procedure? v)
                              (make-traced-procedure ',who v)
-                             (assertion-violation 'trace-define
-                                "not a procedure" v)))))
+                             v))))
              (stx-error stx "invalid name"))))))
   
   (define trace-define-syntax-macro