mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

Added argument checking to trace.

Browse source
This commit is contained in:
Mikael Djurfeldt 1997-03-01 14:53:27 +00:00
parent 9a942103f0
commit cb3a178451
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ice-9/debug.scm
View file

@ -124,6 +124,8 @@
(nameify traced-procedures)
(begin
(for-each (lambda (proc)
(if (not (procedure? proc))
(error "trace: Wrong type argument:" proc))
(set-procedure-property! proc 'trace #t)
(if (not (memq proc traced-procedures))
(set! traced-procedures