scm/guile-debugger.scm

   1 (define-module ( scm guile-debugger)
   2   #:use-module  (ice-9 debugger)
   3   #:use-module  (ice-9 debugging traps)
   4   #:use-module  (ice-9 debugging trace)
   5   #:use-module  (ice-9 debugging steps)
   6   #:use-module  (ice-9 debugging ice-9-debugger-extensions)
   7   #:use-module  (ice-9 readline))
   8   #:export (    set-break!
   9                                 set-trace!
  10                                 set-trace-subtree)
  11 (define (set-break! proc)
  12        (install-trap (make <procedure-trap>
  13                        #:procedure proc
  14                        #:behaviour debug-trap)))
  15
  16 (define (set-trace! proc)
  17        (install-trap (make <procedure-trap>
  18                        #:procedure proc
  19                        #:behaviour (list trace-trap
  20                                          trace-at-exit))))
  21
  22 (define (set-trace-subtree! proc)
  23        (install-trap (make <procedure-trap>
  24                        #:procedure proc
  25                        #:behaviour (list trace-trap
  26                                          trace-until-exit))))