diff options
Diffstat (limited to 'debug.scm')
-rw-r--r-- | debug.scm | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -8,7 +8,7 @@ ;1. Any copy made of this software must include this copyright notice ;in full. ; -;2. I have made no warrantee or representation that the operation of +;2. I have made no warranty or representation that the operation of ;this software will be error-free, and I am under no obligation to ;provide any services, by way of maintenance, update, or otherwise. ; @@ -62,7 +62,7 @@ (let ((sym (get-defined-symbol (cadr form)))) (cond ((procedure? (slib:eval sym)) (proc sym))))))))) - +;@ (define (trace-all file . ...) (for-each (lambda (file) @@ -87,7 +87,7 @@ (lambda (sym) (slib:eval `(set! ,sym (trace:trace-procedure 'stack ,sym ',sym)))))) (cons file ...))) - +;@ (define (break-all file . ...) (for-each (lambda (file) |