From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 1 Oct 2002 09:56:56 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: release/1.7.2~12
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ed5d0fb5e15f244b4687cae00927fad376003c90;p=lilypond.git

*** empty log message ***
---

diff --git a/scm/to-xml.scm b/scm/to-xml.scm
index 25298fa0b7..b345b7969b 100644
--- a/scm/to-xml.scm
+++ b/scm/to-xml.scm
@@ -181,7 +181,7 @@ is then separated.
      (if (pitch? p)
 	 (dump-pitch p port))
      (if (pair? es)
-	 (map (lambda (x) (music-to-xml x port)) es)
+	 (map (lambda (x) (music-to-xml-helper x port)) es)
 	 )
 
      (if (music? e)