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

diff --git a/ChangeLog b/ChangeLog
index 37cd37b94e713550322d956c07889b3597ac8c34..4c9d0bf335244d590ad5ac138121969f883935f3 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2004-01-29  Heikki Junes <hjunes@cc.hut.fi>
+
+       * scm/chord-name.scm (german-markup): bugfix: use SEMI-TONE.
+
 2004-01-28  Jan Nieuwenhuizen  <janneke@gnu.org>
 
        * Documentation/topdocs/NEWS.texi: Add note about safe mode.

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