/[guile]/guile/guile-core/lang/elisp/internals/trace.scm
ViewVC logotype

Diff of /guile/guile-core/lang/elisp/internals/trace.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26