* scm/ps-to-png.scm (make-ps-images): cleanup multipage vs. single

[lilypond.git] / scm / bass-figure.scm

diff --git a/scm/bass-figure.scm b/scm/bass-figure.scm
index a44f5216c0a8052646a1e42c6e83fc335df28a45..46d4af745769d71078ea0731fff07c1b373746c1 100644 (file)
--- a/scm/bass-figure.scm
+++ b/scm/bass-figure.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;; 
-;;;; (c)  1998--2004 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; (c) 1998--2005 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;;                 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 
 
@@ -16,8 +16,8 @@
   (define (fig-to-markup fig-music)
     (let* ((align-accs
            (eq? #t (ly:context-property context 'alignBassFigureAccidentals)))
-          (fig  (ly:music-property fig-music 'figure))
-          (acc  (ly:music-property fig-music 'alteration))
+          (fig (ly:music-property fig-music 'figure))
+          (acc (ly:music-property fig-music 'alteration))
           (acc-markup #f)
           (fig-markup
            (if (markup? fig)
@@ -39,10 +39,10 @@
       (filter-brackets (1+ i) (cdr figs)
 
                       (append
-                       (if  (eq? (ly:music-property (car figs) 'bracket-start) #t)
+                       (if (eq? (ly:music-property (car figs) 'bracket-start) #t)
                             (list i)
                             '())
-                       (if  (eq? (ly:music-property (car figs) 'bracket-stop) #t)
+                       (if (eq? (ly:music-property (car figs) 'bracket-stop) #t)
                             (list i)
                             '())