X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fchord-entry.scm;h=80a473acb177118d0cccc6b02fef78ed4c9e91f0;hb=203097912ea88ccd6d11468c61952bfae9924417;hp=cf8ea886f28de2783db191bcb7a768d64092dcb6;hpb=3ce3a814dbbeec888397b07fb1e9e4d485948a4b;p=lilypond.git

diff --git a/scm/chord-entry.scm b/scm/chord-entry.scm
index cf8ea886f2..80a473acb1 100644
--- a/scm/chord-entry.scm
+++ b/scm/chord-entry.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;; source file of the GNU LilyPond music typesetter
 ;;;;
-;;;; (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; (c) 2004--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
 (define-public (construct-chord-elements root duration modifications)
   " Build a chord on root using modifiers in MODIFICATIONS. NoteEvents
@@ -218,6 +218,7 @@ DURATION, and INVERSION."
   (map (lambda (n)
 	 (define (nca x)
 	   (if (= x 7) FLAT 0))
+	 
 	 (if (>= n 8)
 	     (ly:make-pitch 1 (- n 8) (nca n))
 	     (ly:make-pitch 0 (- n 1) (nca n))))