3 %%%% Source file of the GNU LilyPond music typesetter
5 %%%% (c) 2009 by Ian Hulin <ian@hulin.org.uk>
7 %% \include this file to enable the setting of breakpoints in guile.
8 %% Once loaded, this file will open a guile debug prompt. Type
10 %% at the debug prompt to get a list of possible commands.
11 %% For more information, see the Contributors' Guide.
16 #(use-modules (ice-9 debugger) (ice-9 debugging trace) (ice-9 debugging steps) (ice-9 debugging ice-9-debugger-extensions) )
18 #(define (break! proc)
19 (install-trap (make <procedure-trap>
21 #:behaviour debug-trap)))
23 #(define (trace! proc)
24 (install-trap (make <procedure-trap>
26 #:behaviour (list trace-trap
29 #(define (trace-subtree! proc)
30 (install-trap (make <procedure-trap>
32 #:behaviour (list trace-trap
34 #(module-define! (resolve-module '(guile-user)) 'lilypond-module (current-module))
36 #(set-current-module lilypond-module)