1 %%%% This file is part of LilyPond, the GNU music typesetter.
3 %%%% Copyright (C) 2009 by Ian Hulin <ian@hulin.org.uk>
5 %%%% LilyPond is free software: you can redistribute it and/or modify
6 %%%% it under the terms of the GNU General Public License as published by
7 %%%% the Free Software Foundation, either version 3 of the License, or
8 %%%% (at your option) any later version.
10 %%%% LilyPond 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
13 %%%% GNU General Public License for more details.
15 %%%% You should have received a copy of the GNU General Public License
16 %%%% along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
20 %% \include this file to enable the setting of breakpoints in guile.
21 %% Once loaded, this file will open a guile debug prompt. Type
23 %% at the debug prompt to get a list of possible commands.
24 %% For more information, see the Contributor's Guide.
31 (ice-9 debugging trace)
32 (ice-9 debugging steps)
33 (ice-9 debugging ice-9-debugger-extensions))
35 #(define (break! proc)
36 (install-trap (make <procedure-trap>
38 #:behaviour debug-trap)))
40 #(define (trace! proc)
41 (install-trap (make <procedure-trap>
43 #:behaviour (list trace-trap
46 #(define (trace-subtree! proc)
47 (install-trap (make <procedure-trap>
49 #:behaviour (list trace-trap
52 #(module-define! (resolve-module '(guile-user))
56 #(set-current-module lilypond-module)