* scm/part-combiner.scm: Add proper header.

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

diff --git a/scm/chord-ignatzek-names.scm b/scm/chord-ignatzek-names.scm
index 3a23a4a05f5cb9ade3b3d19437b73432cc07417c..6e84f8f0c906335eda3ea7d75797b1c345678063 100644 (file)
--- a/scm/chord-ignatzek-names.scm
+++ b/scm/chord-ignatzek-names.scm
@@ -3,7 +3,7 @@
 ;;;
 ;;; source file of the GNU LilyPond music typesetter
 ;;; 
-;;; (c)  2000--2003  Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;; (c)  2000--2004  Han-Wen Nienhuys <hanwen@cs.uu.nl>
 
 
 
@@ -137,7 +137,7 @@ work than classifying the pitches."
     
     (define (prefix-modifier->markup mod)
       (if (and (= 3 (pitch-step mod))
-              (= -1 (ly:pitch-alteration mod)))
+              (= FLAT (ly:pitch-alteration mod)))
          (make-simple-markup "m")
          (make-simple-markup "huh")
          ))
@@ -273,9 +273,8 @@ work than classifying the pitches."
 
        ;; do minor-3rd modifier.
        (if (and (get-step 3 pitches)
-               (= (ly:pitch-alteration (get-step 3 pitches)) -1))
-          (set! prefixes (cons (get-step 3 pitches) prefixes))
-          )
+               (= (ly:pitch-alteration (get-step 3 pitches)) FLAT))
+          (set! prefixes (cons (get-step 3 pitches) prefixes)))
        
        ;; lazy bum. Should write loop.
        (cond