- (let ((xml-name (assoc-get-default (node-name node) node-names #f)))
- (string-append
- (if xml-name (open-tag xml-name '() '()) "")
- (if (equal? (node-value node) "")
- (string-append
- (if xml-name "\n" "")
- (apply string-append (map musicxml-node->string (node-children node))))
- (node-value node))
- (if xml-name (close-tag xml-name) "")
- (if xml-name "\n" ""))))
+ (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) "")
+ (string-append
+ (if xml-name "\n" "")
+ (apply string-append (map musicxml-node->string (node-children node))))
+ (node-value node))
+ (if xml-name (close-tag xml-name) "")
+ (if xml-name "\n" ""))))