(text_font_alist_chain): rename function,

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

diff --git a/scm/chord-ignatzek-names.scm b/scm/chord-ignatzek-names.scm
index 26fa220e8f78068ecc6ccd73b0ebaba9692562bd..a3bbe590d976ba62e5274f6ab436e7e01a5c557f 100644 (file)
--- a/scm/chord-ignatzek-names.scm
+++ b/scm/chord-ignatzek-names.scm
@@ -238,7 +238,7 @@ work than classifying the pitches."
        (root (car in-pitches))
        (pitches (map (lambda (x) (ly:pitch-diff x root)) (cdr in-pitches)))
        (exceptions (ly:context-property context 'chordNameExceptions))
-       (exception (assoc-get-default pitches exceptions #f))
+       (exception (assoc-get pitches exceptions))
        (prefixes '())
        (suffixes '())
        (add-steps '())