testMusic = { << c''4 \\ g'4 >> }
-#(load-from-path "to-xml.scm")
+#(use-modules (scm to-xml))
+
+#(ly:progress "\nXML:\n\n~A\n" (call-with-output-string (lambda (p) (music-to-xml testMusic p))))
-#(ly:progress "\nXML:\n\n~A\n"
- (call-with-output-string
- (lambda (p) (music-to-xml testMusic p))))
\header {
texidoc =
{ \testMusic }
-
;;;; (c) 2003--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
;;;; Jan Nieuwenhuizen <janneke@gnu.org>
+(define-module (scm to-xml))
+
(use-modules (ice-9 regex)
(srfi srfi-1)
+ (lily)
(oop goops))
"