X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdocument-backend.scm;h=72aa188d34ff258fed72ed69ac20f5f9d9df8d25;hb=f93a69795ef171d9a486c46d6d2a0480aee4e438;hp=5be1f087efabcc51ef68728f0f20f5d4d9b9c14a;hpb=a48fe82a448339d0acb1a2c63a92e946b5c018b3;p=lilypond.git

diff --git a/scm/document-backend.scm b/scm/document-backend.scm
index 5be1f087ef..72aa188d34 100644
--- 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,28 +94,28 @@
 (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)))
-			)
+			(if (pair? iface)
+			    (ref-ify (symbol->string (car iface)))
+			    (error (format "Error making doc of ~s" name))))
 		      (reverse ifaces)))
        (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"