Re: Debugging/showing internal stuff?

[Carl Sorensen]

Nicolas Sceaux <nicolas.sceaux <at> free.fr> writes:

> you can try that:
> 
> -----foo.ly-----
> #(module-define! (resolve-module '(guile-user)) 'lilypond-module  
> (current-module))
> #(top-repl)
> ----------------
> 
> guile> (set-current-module lilypond-module)
> #<directory (guile-user) 22416f0>
> guile> parser
> #<Lily_parser #<Lily_lexer (#<module 33965e0>) > >
> guile> (display-scheme-music #{ a' #})
> (make-music
>    'SequentialMusic
>    'elements
>    (list (make-music
>            'EventChord
>            'elements
>            (list (make-music
>                    'NoteEvent
>                    'duration
>                    (ly:make-duration 2 0 1 1)
>                    'pitch
>                    (ly:make-pitch 0 5 0))))))
> 

When I tried this, I ended up with the display above, followed by:

#<Prob: Music C++: Music((origin . #<location <string>:1:30>) 
(elements #<Prob: Music C++: Music((origin . #<location <string>:1:33>) 
(elements #<Prob: Music C++: Music((duration . #<Duration 4 >) 
(pitch . #<Pitch a' >) (origin . #<location <string>:1:33>))
((display-methods #<procedure #f (note parser)>) (name . NoteEvent) 
(types general-music event note-event rhythmic-event melodic-event)) >
))((display-methods #<procedure #f (expr parser)> 
#<procedure #f (expr parser)> #<procedure #f (chord parser)>) 
(name . EventChord)
 (iterator-ctor . #<primitive-procedure ly:event-chord-iterator::constructor>) 
(length-callback . 
#<primitive-procedure ly:music-sequence::maximum-length-callback>) 
(to-relative-callback . 
#<primitive-procedure ly:music-sequence::event-chord-relative-callback>)
 (types general-music event-chord simultaneous-music)) >
))((display-methods #<procedure #f (seq parser)>) 
(name . SequentialMusic)
 (length-callback . 
#<primitive-procedure ly:music-sequence::cumulative-length-callback>) 
(start-callback . 
#<primitive-procedure ly:music-sequence::first-start-callback>)
 (elements-callback . #<procedure #f (m)>)
 (iterator-ctor . #<primitive-procedure ly:sequential-iterator::constructor>)
 (types general-music sequential-music)) >

Any idea why I'm getting this?

Thanks,

Carl