* scm/new-font.scm: new file. Tree based font lookup.

[lilypond.git] / scm / chord-generic-names.scm

diff --git a/scm/chord-generic-names.scm b/scm/chord-generic-names.scm
index 5b8e064184947516119d5da8e95ec76b482e4e24..c51b8c7438fa399503f7f2d95f4befd35553ac9a 100644 (file)
--- a/scm/chord-generic-names.scm
+++ b/scm/chord-generic-names.scm
@@ -196,15 +196,15 @@ input/test/dpncnt.ly).
        ;;    + steps:altered + (highest all -- if not altered)
        ;;    + subs:missing
        
-       (let* ((root->markup (assoc-get-default
+       (let* ((root->markup (assoc-get
                              'root->markup options note-name->markup))
-             (step->markup (assoc-get-default
+             (step->markup (assoc-get
                             'step->markup options step->markup-plusminus))
-             (sub->markup (assoc-get-default
+             (sub->markup (assoc-get
                            'sub->markup options
                            (lambda (x)
                              (step-based-sub->markup step->markup x))))
-             (sep (assoc-get-default
+             (sep (assoc-get
                    'separator options (make-simple-markup "/"))))
         
         (if
@@ -234,16 +234,16 @@ input/test/dpncnt.ly).
        ;;    + steps:(highest base) + cons-alt
        ;;    + 'add'
        ;;    + steps:rest
-       (let* ((root->markup (assoc-get-default
+       (let* ((root->markup (assoc-get
                              'root->markup options note-name->markup))
              (step->markup
-              (assoc-get-default
+              (assoc-get
                ;; FIXME: ignatzek
                ;;'step->markup options step->markup-accidental))
                'step->markup options step->markup-ignatzek))
-             (sep (assoc-get-default
+             (sep (assoc-get
                    'separator options (make-simple-markup " ")))
-             (add-prefix (assoc-get-default 'add-prefix options
+             (add-prefix (assoc-get 'add-prefix options
                                             (make-simple-markup " add"))))
         
         (if