* scripts/lilypond-book.py (do_file): do not overwrite input file.

[lilypond.git] / scm / to-xml.scm

diff --git a/scm/to-xml.scm b/scm/to-xml.scm
index 0e6bd24ae640349bc27b717f3ec78ac1e11afdf6..afe8084170a7d6a68a635eabbc1678a010b48294 100644 (file)
--- a/scm/to-xml.scm
+++ b/scm/to-xml.scm
@@ -107,12 +107,12 @@ is then separated.
                   (alteration . ,(ly:pitch-alteration p)))))
                               
 (define (music->xml-node music)
-  (let* ((name (ly:get-mus-property music 'name))
-        (e (ly:get-mus-property music 'element))
-        (es (ly:get-mus-property music 'elements))
+  (let* ((name (ly:music-property music 'name))
+        (e (ly:music-property music 'element))
+        (es (ly:music-property music 'elements))
         (mprops (ly:get-mutable-properties music))
-        (d (ly:get-mus-property music 'duration))
-        (p (ly:get-mus-property music 'pitch))
+        (d (ly:music-property music 'duration))
+        (p (ly:music-property music 'pitch))
         (ignore-props '(origin elements duration pitch element)))
     
     (make <xml-node>