guile18/lang/elisp/internals/trace.scm

   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)