* scm/chord-name.scm (german-markup): bugfix: use SEMI-TONE.

[lilypond.git] / scm / chord-name.scm

diff --git a/scm/chord-name.scm b/scm/chord-name.scm
index 0248c8c3f62d99283f62eaab5484a820612bacf5..b171c482fb85008315afc5f152d69a336a2687f8 100644 (file)
--- a/scm/chord-name.scm
+++ b/scm/chord-name.scm
@@ -53,7 +53,7 @@
   (let* ((name (ly:pitch-notename pitch))
          (alt (ly:pitch-alteration pitch))
         (n-a (if (member (cons name alt) `((6 . ,FLAT) (6 . ,DOUBLE-FLAT)))
-                (cons 7 (+ (if B-instead-of-Bb 1 0) alt))
+                (cons 7 (+ (if B-instead-of-Bb SEMI-TONE 0) alt))
                 (cons name alt))))
     (make-line-markup
      (list