Issue 3580: Replace unwarranted uses of map with for-each and other Scheme cleanups

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

diff --git a/scm/to-xml.scm b/scm/to-xml.scm
index 8b33cbaccc26ed5baf9d9c154efaea7f00e03938..2407fe3766239939a0c33d162eae75c7900a472e 100644 (file)
--- a/scm/to-xml.scm
+++ b/scm/to-xml.scm
@@ -70,7 +70,7 @@ is then separated.
      (if (equal? (node-value node) "")
          (string-append
           (if xml-name "\n" "")
-          (apply string-append (map musicxml-node->string (node-children node))))
+          (string-concatenate (map musicxml-node->string (node-children node))))
          (node-value node))
      (if xml-name (close-tag xml-name) "")
      (if xml-name "\n" ""))))
@@ -80,8 +80,7 @@ is then separated.
    "\n"
    (open-tag (node-name node) (node-attributes node) '())
    (if (equal? (node-value node) "")
-       (string-append
-        (apply string-append (map xml-node->string (node-children node))))
+       (string-concatenate (map xml-node->string (node-children node)))
        (node-value node))
    "\n"
    (close-tag (node-name node))))
@@ -224,7 +223,7 @@ is then separated.
 
   (string-append
    "<" (symbol->string tag)
-   (apply string-append (map dump-attr (filter candidate? attrs)))
+   (string-concatenate (map dump-attr (filter candidate? attrs)))
    ">"))
 
 (define (close-tag name)