D7#9

[Jonathan Rosanowski]

Here's the offending line in chord-name.scm that causes the problem
(define (step->text-jazz pitch)
  (if (= (cadr pitch) 6)
      (case (caddr pitch)
        ;; sharp 7 only included for completeness?
        ((-2) (text-append (accidental->text -1) '("7")))
        ((-1) '("7"))
        ((0) '("maj7")) ****************************************This one
        ((1) (text-append (accidental->text-super 1) '("7")))
        ((2) (text-append (accidental->text-super 2) '("7"))))
      (step->text-alternate-jazz pitch)))

I can hack it changing "maj7" to "" to fix it but I don't really understand
this code. Are there any lilypond programmers here that can explain it?

Thanks,
Jonathan.