make to-xml.scm a module.

diff --git a/input/regression/to-xml.ly b/input/regression/to-xml.ly
index c2f39725c9592bacf6aefd875fd12777f77c4358..0a3cc4a35d1cd7f00b6aed6395b4f05eabb97885 100644 (file)
--- a/input/regression/to-xml.ly
+++ b/input/regression/to-xml.ly
@@ -2,11 +2,10 @@
 
 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 =
@@ -15,4 +14,3 @@ testMusic =  { << c''4 \\ g'4 >> }
 
 
 { \testMusic }
-

diff --git a/scm/to-xml.scm b/scm/to-xml.scm
index b1b2ed79a69cf60729d8ad9fbf13161140389b60..409247d0a554963bb2c52cdd379a22bd12739f43 100644 (file)
--- a/scm/to-xml.scm
+++ b/scm/to-xml.scm
@@ -5,8 +5,11 @@
 ;;;; (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))
 
 "