From b94c77562ed56b0fead1b40ef1988b3e79f58073 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Mon, 30 Sep 2002 11:10:44 +0000
Subject: [PATCH] *** empty log message ***

---
 scm/to-xml.scm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/scm/to-xml.scm b/scm/to-xml.scm
index ea46d57241..dbd12f34ed 100644
--- 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)
-- 
2.39.5