conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

This commit is contained in:
Abdulaziz Ghuloum 2009-04-06 17:21:56 +03:00
parent 7d6316f723
commit 65dc2bc40d
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/last-revision
View File

@ -1 +1 @@
1754 1755

3
scheme/psyntax.expander.ss
View File

@ -1260,8 +1260,7 @@
(let ((v ,expr)) (let ((v ,expr))
(if (procedure? v) (if (procedure? v)
(make-traced-procedure ',who v) (make-traced-procedure ',who v)
(assertion-violation 'trace-define v))))
"not a procedure" v)))))
(stx-error stx "invalid name")))))) (stx-error stx "invalid name"))))))
(define trace-define-syntax-macro (define trace-define-syntax-macro