Parent Directory | Revision Log | Patch
revision 1.1 by ossau, Fri Oct 26 16:42:43 2001 UTC | revision 1.2 by ossau, Tue Jan 22 23:46:01 2002 UTC | |
---|---|---|
# | Line 0 | Line 1 |
1 | (define-module (lang elisp internals trace) | |
2 | #:export (trc trc-syms trc-all trc-none)) | |
3 | ||
4 | (define *syms* #f) | |
5 | ||
6 | (define (trc-syms . syms) | |
7 | (set! *syms* syms)) | |
8 | ||
9 | (define (trc-all) | |
10 | (set! *syms* #f)) | |
11 | ||
12 | (define (trc-none) | |
13 | (set! *syms* '())) | |
14 | ||
15 | (define (trc . args) | |
16 | (let ((sym (car args)) | |
17 | (args (cdr args))) | |
18 | (if (or (and *syms* | |
19 | (memq sym *syms*)) | |
20 | (not *syms*)) | |
21 | (begin | |
22 | (write sym) | |
23 | (display ": ") | |
24 | (write args) | |
25 | (newline))))) | |
26 | ||
27 | ;; Default to no tracing. | |
28 | (trc-none) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |