*** empty log message ***

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

diff --git a/scm/document-backend.scm b/scm/document-backend.scm
index 5be1f087efabcc51ef68728f0f20f5d4d9b9c14a..5094bcdb630b2f04755d883fe815a1f007c3f831 100644 (file)
--- a/scm/document-backend.scm
+++ b/scm/document-backend.scm
@@ -71,8 +71,12 @@
 
              (human-listify
               (map ref-ify
-                   (map symbol->string
-                        (hashq-ref iface->grob-table (car interface) '() )))))
+                   (sort 
+                    (map symbol->string
+                         (hashq-ref iface->grob-table (car interface) '() ))
+                    string<?)
+                   
+                   )))
 
       )))
 
@@ -90,12 +94,12 @@
 (define (grob-doc description)
   "Given a property alist DESCRIPTION, make a documentation
 node."
-  
+
   (let*
-      (
-       (metah (assoc 'meta description))
+      ((metah (assoc 'meta description))
        (meta (cdr metah))
        (name (cdr (assoc 'name meta)))
+;       (bla (display name))
        (ifaces (map lookup-interface (cdr (assoc 'interfaces meta))))
        (ifacedoc (map (lambda (iface)
                        (ref-ify (symbol->string (car iface)))
@@ -104,14 +108,13 @@ node."
        (engravers (filter
                   (lambda (x) (engraver-makes-grob? name x)) all-engravers-list))
        (namestr (symbol->string name))
-       (engraver-names (map symbol->string (map ly:translator-name engravers)))
-       )
+       (engraver-names (map symbol->string (map ly:translator-name engravers))))
 
     (make <texi-node>
       #:name namestr
       #:text
       (string-append
-       namestr " grobs are created by: "
+       namestr " objects are created by: "
        (human-listify (map ref-ify
                           (map engraver-name engraver-names)))
        "\n\nStandard settings: \n\n"