*** empty log message ***

diff --git a/scm/to-xml.scm b/scm/to-xml.scm
index ea46d57241710c3d372fc7f6a745e05edb3f925f..dbd12f34ed8c169260f4b67beae7516b3dcb91a7 100644 (file)
--- a/scm/to-xml.scm
+++ b/scm/to-xml.scm
@@ -9,6 +9,19 @@ class of a documentnode (similar to how
 That is much cleaner: building the document, and dumping it to output
 is then separated.
 
+
+   foo = \score { ... }
+
+   #(as-xml foo)
+
+   <score>
+     <music></music>
+     <paperoutput>
+     </paperoutput>
+   </score>
+
+
+
 "
 
 
@@ -158,6 +171,9 @@ is then separated.
        (ignore-props '(origin elements duration pitch element))
        )
 
+     ;; As almost everything is music; <SequentialMusic> is
+     ;; probably better than <music type="SequentialMusic">?
+     
      (display (open-tag 'music (cons `(type . ,name) mprops) ignore-props)
              port)
      (if (duration? d)