* scm/music-functions.scm (cue-substitute): voice counts start at 0.

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

diff --git a/scm/document-backend.scm b/scm/document-backend.scm
index 5094bcdb630b2f04755d883fe815a1f007c3f831..72aa188d34ff258fed72ed69ac20f5f9d9df8d25 100644 (file)
--- a/scm/document-backend.scm
+++ b/scm/document-backend.scm
@@ -102,8 +102,9 @@ node."
 ;       (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))