1 ;;;; (ice-9 debugging trc) -- tracing for Guile debugger code
3 ;;; Copyright (C) 2002, 2004 Free Software Foundation, Inc.
5 ;; This library is free software; you can redistribute it and/or
6 ;; modify it under the terms of the GNU Lesser General Public
7 ;; License as published by the Free Software Foundation; either
8 ;; version 2.1 of the License, or (at your option) any later version.
10 ;; This library is distributed in the hope that it will be useful,
11 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
12 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 ;; Lesser General Public License for more details.
15 ;; You should have received a copy of the GNU Lesser General Public
16 ;; License along with this library; if not, write to the Free Software
17 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19 (define-module (ice-9 debugging trc)
20 #:export (trc trc-syms trc-all trc-none trc-add trc-remove trc-port))
24 (define (trc-set! syms)
27 (define (trc-syms . syms)
37 (trc-set! (cons sym *syms*)))
39 (define (trc-remove sym)
40 (trc-set! (delq1! sym *syms*)))
42 (define (trc sym . args)
45 (let ((port (trc-port)))
48 (for-each (lambda (arg)
55 (let ((port (current-error-port)))
56 (make-procedure-with-setter
58 (lambda (p) (set! port p)))))
60 ;; Default to no tracing.
63 ;;; (ice-9 debugging trc) ends here.