trace-define now does not raise an error when given a non-procedure

2009-04-06 17:21:56 +03:00 · 2009-04-06 17:21:56 +03:00 · 65dc2bc40d
parent 7d6316f723
commit 65dc2bc40d
2 changed files with 2 additions and 3 deletions
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1754
+1755
--- 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