ly/guile-debugger.ly

   1 %%%% guile-debugger.ly
   2 %%%%
   3 %%%% Source file of the GNU LilyPond music typesetter
   4 %%%%
   5 %%%% (c) 2009 by Ian Hulin <ian@hulin.org.uk>
   6
   7 %%  \include this file to enable the setting of breakpoints in guile.
   8 %%  Once loaded, this file will open a guile debug prompt.  Type
   9 %%  help
  10 %%  at the debug prompt to get a list of possible commands.
  11 %%  For more information, see the Contributors' Guide.
  12
  13
  14 \version "2.13.4"
  15
  16 #(use-modules
  17   (ice-9 debugger)
  18   (ice-9 debugging trace)
  19   (ice-9 debugging steps)
  20   (ice-9 debugging ice-9-debugger-extensions))
  21
  22 #(define (break! proc)
  23    (install-trap (make <procedure-trap>
  24                    #:procedure proc
  25                    #:behaviour debug-trap)))
  26
  27 #(define (trace! proc)
  28    (install-trap (make <procedure-trap>
  29                    #:procedure proc
  30                    #:behaviour (list trace-trap
  31                                      trace-at-exit))))
  32
  33 #(define (trace-subtree! proc)
  34    (install-trap (make <procedure-trap>
  35                    #:procedure proc
  36                    #:behaviour (list trace-trap
  37                                      trace-until-exit))))
  38
  39 #(module-define! (resolve-module '(guile-user))
  40                  'lilypond-module
  41                  (current-module))
  42 #(top-repl)
  43 #(set-current-module lilypond-module)