($(outdir)/lilypond-internals/lilypond-internals.html): copy ly

[lilypond.git] / scm / chords-ignatzek.scm

diff --git a/scm/chords-ignatzek.scm b/scm/chords-ignatzek.scm
index b2d00981c3b08e056c526cd1d38c144df9a7ce1a..f1c61ff517abe830d106b9832f518deb41c383a3 100644 (file)
--- a/scm/chords-ignatzek.scm
+++ b/scm/chords-ignatzek.scm
@@ -202,7 +202,10 @@
     (let ((nn (ly:get-context-property context 'chordNoteNamer)))
       (if (eq? nn '())
          ; replacing the next line with name-root gives guile-error...? -rz
-         name-root
+
+         ;; apparently sequence of defines is equivalent to let, not let* ? -hwn
+         (ly:get-context-property context 'chordRootNamer)       
+         ;; name-root
          nn)))
 
   (define (is-natural-alteration? p)