*** empty log message ***

[lilypond.git] / scm / document-music.scm

diff --git a/scm/document-music.scm b/scm/document-music.scm
index c7979b59b1e1c05255803f67d0178198381571ca..b1ab6613c49e5933da0673e56f04df8f8775a35b 100644 (file)
--- a/scm/document-music.scm
+++ b/scm/document-music.scm
@@ -1,3 +1,9 @@
+;;;; document-markup.scm -- part of generated backend documentation
+;;;;
+;;;;  source file of the GNU LilyPond music typesetter
+;;;; 
+;;;; (c)  1998--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 
 (define (music-props-doc)
   (make <texi-node>
@@ -31,11 +37,6 @@
   music-descriptions)
 
 
-(define (hash-table->alist t)
-  "Convert table t to list"
-  (apply append
-        (vector->list t)
-  ))
 
 (define (strip-description x)
     (cons (symbol->string (car x))
@@ -95,7 +96,7 @@
      "\n\nProperties: \n"
      (description-list->texi
       (map
-       (lambda (x) (document-property x 'music props))
+       (lambda (x) (property->texi 'music  x props))
        (map car props)))
      
      )