projects
/
lilypond.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
b94c775
)
*** empty log message ***
author
Han-Wen Nienhuys
<hanwen@xs4all.nl>
Tue, 1 Oct 2002 09:53:11 +0000
(09:53 +0000)
committer
Han-Wen Nienhuys
<hanwen@xs4all.nl>
Tue, 1 Oct 2002 09:53:11 +0000
(09:53 +0000)
scm/to-xml.scm
patch
|
blob
|
history
diff --git
a/scm/to-xml.scm
b/scm/to-xml.scm
index dbd12f34ed8c169260f4b67beae7516b3dcb91a7..25298fa0b7b9ba4c1564a2171f46cd3d1c4b765a 100644
(file)
--- a/
scm/to-xml.scm
+++ b/
scm/to-xml.scm
@@
-181,8
+181,9
@@
is then separated.
(if (pitch? p)
(dump-pitch p port))
(if (pair? es)
- (begin
- (map (lambda (x) (music-to-xml-helper x port)) es)))
+ (map (lambda (x) (music-to-xml x port)) es)
+ )
+
(if (music? e)
(begin
(music-to-xml-helper e port)))