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.0"
  15
  16 #(use-modules (ice-9 debugger) (ice-9 debugging trace) (ice-9 debugging steps) (ice-9 debugging ice-9-debugger-extensions)  )
  17
  18 #(define (break! proc)
  19        (install-trap (make <procedure-trap>
  20                        #:procedure proc
  21                        #:behaviour debug-trap)))
  22
  23 #(define (trace! proc)
  24        (install-trap (make <procedure-trap>
  25                        #:procedure proc
  26                        #:behaviour (list trace-trap
  27                                          trace-at-exit))))
  28
  29 #(define (trace-subtree! proc)
  30        (install-trap (make <procedure-trap>
  31                        #:procedure proc
  32                        #:behaviour (list trace-trap
  33                                          trace-until-exit))))
  34 #(module-define! (resolve-module '(guile-user)) 'lilypond-module (current-module))
  35 #(top-repl)
  36 #(set-current-module lilypond-module)