X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fto-xml.scm;h=a6b9508a6e442d029fbb2f6d9456a6c6f2f5f6e9;hb=99d9989aad878c48e5db24d6b72df32f269f1148;hp=d97f2682ac41c90d3e82a65ab026150a5befb2b3;hpb=b584147c940e9456c2e0819e5af0afb765ade992;p=lilypond.git

diff --git a/scm/to-xml.scm b/scm/to-xml.scm
index d97f2682ac..a6b9508a6e 100644
--- a/scm/to-xml.scm
+++ b/scm/to-xml.scm
@@ -50,13 +50,8 @@ is then separated.
     (step . step)
     ))
 
-(define (assoc-get-default key alist default)
-  "Return value if KEY in ALIST, else DEFAULT."
-  (let ((entry (assoc key alist)))
-    (if entry (cdr entry) default)))
-
 (define (musicxml-node->string node)
-  (let ((xml-name (assoc-get-default (node-name node) node-names #f)))
+  (let ((xml-name (assoc-get (node-name node) node-names #f)))
   (string-append
    (if xml-name (open-tag xml-name '() '()) "")
    (if (equal? (node-value node) "")
@@ -116,7 +111,7 @@ is then separated.
   (let* ((name (ly:music-property music 'name))
 	 (e (ly:music-property music 'element))
 	 (es (ly:music-property music 'elements))
-	 (mprops (ly:mutable-music-properties music))
+	 (mprops (ly:music-mutable-properties music))
 	 (d (ly:music-property music 'duration))
 	 (p (ly:music-property music 'pitch))
 	 (ignore-props '(origin elements duration pitch element)))