*** empty log message ***

[lilypond.git] / scm / to-xml.scm

diff --git a/scm/to-xml.scm b/scm/to-xml.scm
index b53b2f5e5fc1dfdc48b307452e14e45cfb7cac96..d88649315a50786d31656d9fe11c449501b63e9b 100644 (file)
--- a/scm/to-xml.scm
+++ b/scm/to-xml.scm
@@ -1,3 +1,9 @@
+;;;; to-xml.scm -- dump parse tree as xml
+;;;;
+;;;;  source file of the GNU LilyPond music typesetter
+;;;; 
+;;;; (c)  2003--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 
 (use-modules (ice-9 regex)
             (srfi srfi-1)
@@ -12,7 +18,7 @@ That is much cleaner: building the document, and dumping it to output
 is then separated.
 
 
-   foo = \score { ... }
+   foo = \\score { ... }
 
    #(as-xml foo)
 
@@ -107,12 +113,12 @@ is then separated.
                   (alteration . ,(ly:pitch-alteration p)))))
                               
 (define (music->xml-node music)
-  (let* ((name (ly:get-mus-property music 'name))
-        (e (ly:get-mus-property music 'element))
-        (es (ly:get-mus-property music 'elements))
+  (let* ((name (ly:music-property music 'name))
+        (e (ly:music-property music 'element))
+        (es (ly:music-property music 'elements))
         (mprops (ly:get-mutable-properties music))
-        (d (ly:get-mus-property music 'duration))
-        (p (ly:get-mus-property music 'pitch))
+        (d (ly:music-property music 'duration))
+        (p (ly:music-property music 'pitch))
         (ignore-props '(origin elements duration pitch element)))
     
     (make <xml-node>