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
_______________________________________________
lilypond-devel mailing list
lilypond-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-devel
