* lily/my-lily-parser.cc (parse_string): delete lexer after use.

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

diff --git a/scm/to-xml.scm b/scm/to-xml.scm
index d97f2682ac41c90d3e82a65ab026150a5befb2b3..a6b9508a6e442d029fbb2f6d9456a6c6f2f5f6e9 100644 (file)
--- 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)))