Support for padding-pairs in KeySignature.

[lilypond.git] / scm / translation-functions.scm

diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm
index 0eab4fe5dea74b27df27eadd649e5b1a42551a80..366f44fa3baf095b706501c6a21d045f985b2b85 100644 (file)
--- a/scm/translation-functions.scm
+++ b/scm/translation-functions.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;; 
-;;;; (c) 1998--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; (c) 1998--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;                Jan Nieuwenhuizen <janneke@gnu.org>
 
 ;; metronome marks
@@ -242,7 +242,6 @@
        
 
   ;;; body.
-
   (set! specified-frets
        (filter identity (map
                      (lambda (note)
@@ -251,9 +250,9 @@
                                       (note-string note) tunings)
                            #f))
                      notes)))
-  (set! free-strings (map 1+ (iota (length tunings))))
 
-  
+
+  (set! free-strings (map 1+ (iota (length tunings))))
     
   (for-each (lambda (note)
              (del-string (note-string note)))
@@ -275,7 +274,5 @@
                           
               )))
    (sort notes note-pitch<?))
-  
-  
 
-    string-fret-fingering-tuples)
+  string-fret-fingering-tuples)