Run `make grand-replace'.

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

diff --git a/scm/chord-generic-names.scm b/scm/chord-generic-names.scm
index 7a1ff1893248e6021e7e9cd4d74b2690495703da..9ee26dee584fff50df16c5f48d9ca809863e14c9 100644 (file)
--- a/scm/chord-generic-names.scm
+++ b/scm/chord-generic-names.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;;
-;;;; (c) 2003-2004 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; (c) 2003--2008 Jan Nieuwenhuizen <janneke@gnu.org>
 
 
 ;;;; NOTE: this is experimental code
@@ -134,7 +134,7 @@ input/test/dpncnt.ly).
     (if (pair? exceptions)
        (let* ((e (car exceptions))
               (e-pitches (car e)))
-         (if (equal? e-pitches (take pitches (length e-pitches) ))
+         (if (equal? e-pitches (take pitches (length e-pitches)))
              e
              (partial-match (cdr exceptions))))
        #f))
@@ -160,8 +160,8 @@ input/test/dpncnt.ly).
         ;; kludge alert: replace partial matched lower part of all with
         ;; 'normal' pitches from full
         ;; (all pitches)
-        (all (append (take full (length partial-pitches) )
-                     (drop pitches (length partial-pitches) )))
+        (all (append (take full (length partial-pitches))
+                     (drop pitches (length partial-pitches))))
        
         (highest (last all))
         (missing (list-minus full (map pitch-unalter all)))