X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdocument-music.scm;h=b1ab6613c49e5933da0673e56f04df8f8775a35b;hb=95f56d089547ceaaf17062f7e32b0d33811d7533;hp=c7979b59b1e1c05255803f67d0178198381571ca;hpb=d02fb0875e52111272553a47e657b6f58e136e22;p=lilypond.git

diff --git a/scm/document-music.scm b/scm/document-music.scm
index c7979b59b1..b1ab6613c4 100644
--- 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)))
      
      )