3 fooBar = \notes { << c''4 \\ g'4 >> }
5 #(ly:set-option 'parse-protect #f)
6 #(load-from-path "to-xml.scm")
8 #(music-to-xml fooBar (current-output-port))
11 texidoc = "@cindex To XML"
12 texidoc = #(string-append
13 "The input representation is very generic. It
14 should not be hard to convert it to XML or a similar format:\n\n"
17 (call-with-output-string
18 (lambda (p) (music-to-xml fooBar p))