* scm/chords-ignatzek.scm (ignatzek-chord-names): robustness fix.

* scm/chords-ignatzek.scm: new file.

diff --git a/ChangeLog b/ChangeLog
index 023168325ae704420cbbaa86e297e5aab0054cb3..4704ad34bd91692b12ce237197b262fb261e1f68 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2003-02-15  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
+       * scm/chords-ignatzek.scm (ignatzek-chord-names): robustness fix.
+
        * lily/include/*.hh: string() -> to_string()
 
        * scm/chords-ignatzek.scm: new file.

diff --git a/scm/chords-ignatzek.scm b/scm/chords-ignatzek.scm
index b13952d47f46806d74b7422d92bfffcc3714cfa2..5f91a2981d53b1faebedca844fad7736b83dfc5a 100644 (file)
--- a/scm/chords-ignatzek.scm
+++ b/scm/chords-ignatzek.scm
@@ -163,9 +163,10 @@ work than classifying the pitches."
     (define (filter-main-name p)
     "The main name: don't print anything for natural 5 or 3."
     (if
-     (and (is-natural-alteration? p)
+     (or (not (ly:pitch? p))
+        (and (is-natural-alteration? p)
          (or (= (pitch-step p) 5)
-             (= (pitch-step p) 3)))
+             (= (pitch-step p) 3))))
      '()
      (list (name-step p))
      ))
@@ -329,6 +330,7 @@ work than classifying the pitches."
         ;; etc. are named by the top pitch, without any further
         ;; alterations.
         (if (and
+             (ly:pitch? main-name)
              (= 7 (pitch-step main-name))
              (is-natural-alteration? main-name)
              (pair? (remove-uptil-step 7 alterations))