*** empty log message ***

diff --git a/scm/beam.scm b/scm/beam.scm
index 87739bbbcd9e06735e1135f3b998732a1877030b..97a1f2ce34a8a58cf9631790d7a63700a82c8ced 100644 (file)
--- a/scm/beam.scm
+++ b/scm/beam.scm
@@ -94,7 +94,7 @@
          (ly:warn "Error in beam quanting found. Want ~S 0 found ~S."
                   (procedure-name comparison) slope-sign)
          (set! (ly:grob-property beam 'quant-score)
-               (format "~S 0" (procedure-name comparison) )))
+               (format "~S 0" (procedure-name comparison))))
        (set! (ly:grob-property beam 'quant-score) ""))))
 
 (define-public (check-quant-callbacks l r)

diff --git a/scm/chord-generic-names.scm b/scm/chord-generic-names.scm
index 7a1ff1893248e6021e7e9cd4d74b2690495703da..91a99534b1985db8514f3c747390753f7414e1fa 100644 (file)
--- a/scm/chord-generic-names.scm
+++ b/scm/chord-generic-names.scm
@@ -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)))

diff --git a/scm/chord-name.scm b/scm/chord-name.scm
index af8b06b6e63d57fb18ee57f8e72e944fae8a3772..2c63a7d4e9c40d190da5e7b098b1c4c204d4b73a 100644 (file)
--- a/scm/chord-name.scm
+++ b/scm/chord-name.scm
@@ -65,10 +65,10 @@
     (make-line-markup
      (list
       (string-append
-       (list-ref '("c" "d" "e" "f" "g" "a" "h" "b")  (car n-a) )
+       (list-ref '("c" "d" "e" "f" "g" "a" "h" "b")  (car n-a))
        (if (or (equal? (car n-a) 2) (equal? (car n-a) 5))
-          (list-ref '( "ses"  "s" "" "is" "isis") (+ 2 (/ (cdr n-a) 2) ))
-          (list-ref '("eses" "es" "" "is" "isis") (+ 2 (/ (cdr n-a) 2) ))))))))
+          (list-ref '( "ses"  "s" "" "is" "isis") (+ 2 (/ (cdr n-a) 2)))
+          (list-ref '("eses" "es" "" "is" "isis") (+ 2 (/ (cdr n-a) 2)))))))))
 
 ;; fixme we should standardize on omit-root (or the other one.)
 ;; perhaps the  default should also be reversed --hwn

diff --git a/scm/define-grob-interfaces.scm b/scm/define-grob-interfaces.scm
index aecf2acb029606d51a50c9ba37989e6cf97a6846..287c45228853052f7956bc87581f63a983312749 100644 (file)
--- a/scm/define-grob-interfaces.scm
+++ b/scm/define-grob-interfaces.scm
@@ -76,7 +76,7 @@
 (ly:add-interface
  'only-prebreak-interface
  "Kill this grob after the line breaking process."
- '() )
+ '())
 
 (ly:add-interface
  'piano-pedal-interface

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index edad8f922a17bf4df12e2bca7152b61eb9cdf508..343f261a6e6d32afed1e713db5b75e196126772d 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -415,7 +415,7 @@
        (direction . -1)
        
        (meta . ((interfaces . (dynamic-interface axis-group-interface
-                                                 side-position-interface spanner-interface)))) ))
+                                                 side-position-interface spanner-interface))))))
 
     (LeftEdge
      . (

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index c8e05e405eafed4213c79ef65fb35d9c96446cc1..5c1c745d3b8c1e72d8415da9b85997f37e636295 100644 (file)
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -148,7 +148,7 @@ determines the space between each markup in @var{args}."
 
     (if (markup? m)
        (interpret-markup layout props m)
-       (ly:make-stencil '()  '(1 . -1) '(1 . -1) ))))
+       (ly:make-stencil '()  '(1 . -1) '(1 . -1)))))
 
 
 (def-markup-command (on-the-fly layout props procedure arg) (symbol? markup?)
@@ -463,7 +463,7 @@ and/or @code{extra-offset} properties. "
                     (apply ly:stencil-add
                            (map (lambda (x)
                                   (ly:stencil-translate-axis
-                                   dot  (* (+ 1 (* 2 x)) dotwid) X) )
+                                   dot  (* (+ 1 (* 2 x)) dotwid) X))
                                 (iota dot-count 1)))))
          (flaggl (and (> log 2)
                       (ly:stencil-translate
@@ -611,7 +611,7 @@ will put extra space between A and B, on top of the space that is
 normally inserted before elements on a line.
 "
   (if (> amount 0)
-      (ly:make-stencil "" (cons 0 amount) '(-1 . 1) )
+      (ly:make-stencil "" (cons 0 amount) '(-1 . 1))
       (ly:make-stencil "" (cons amount amount) '(-1 . 1))))
 
 (def-markup-command (override layout props new-prop arg) (pair? markup?)
@@ -693,7 +693,7 @@ around the markup."
 the elements marked in @var{indices}, which is a list of numbers."
 
   (define (sublist lst start stop)
-    (take (drop lst start) (- (1+ stop) start)) )
+    (take (drop lst start) (- (1+ stop) start)))
 
   (define (stencil-list-extent ss axis)
     (cons

diff --git a/scm/document-backend.scm b/scm/document-backend.scm
index 8a828b4a8cd44d78e4cb52474e15d8191cebc053..442a225b55f67cd9f61ceebbd6a5227ca8bdc391 100644 (file)
--- a/scm/document-backend.scm
+++ b/scm/document-backend.scm
@@ -12,8 +12,11 @@
         (docfunc (lambda (pr)
                    (property->texi
                     'backend pr grob-description)))
-        (iprops (filter (lambda (x) (object-property x 'backend-internal) ) props))
-        (uprops (filter (lambda (x) (not (object-property x 'backend-internal)) ) props))
+        (iprops (filter (lambda (x) (object-property x 'backend-internal))
+                        props))
+        (uprops (filter
+                 (lambda (x) (not (object-property x 'backend-internal)))
+                 props))
         (user-propdocs (map docfunc uprops))
         (internal-propdocs (map docfunc iprops)))
 
@@ -62,7 +65,7 @@
               (map ref-ify
                    (sort 
                     (map symbol->string
-                         (hashq-ref iface->grob-table (car interface) '() ))
+                         (hashq-ref iface->grob-table (car interface) '()))
                     string<?)))))))
 
 (define (grob-alist->texi alist)
@@ -134,7 +137,7 @@ node."
 ;;;;;;;;;;;;;;;;
 
 (define (lookup-interface name)
-  (let* ((entry (hashq-ref (ly:all-grob-interfaces) name '() )))
+  (let* ((entry (hashq-ref (ly:all-grob-interfaces) name '())))
     (if (equal? entry #f)
        (error "Unknown interface" name))
     entry))

diff --git a/scm/document-markup.scm b/scm/document-markup.scm
index 65f0e5e0dcfc1b9b75e30314fc0865e976f265ba..0ffbdc53ef9e0b364fdcd28496cf6b144ada8245 100644 (file)
--- a/scm/document-markup.scm
+++ b/scm/document-markup.scm
@@ -6,7 +6,7 @@
 ;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 
 (define (doc-markup-function func)
-  (let* ((doc-str  (procedure-documentation func) )
+  (let* ((doc-str  (procedure-documentation func))
         (f-name (symbol->string (procedure-name  func)))
         (c-name (regexp-substitute/global #f "-markup$" f-name  'pre "" 'post))
         (sig (object-property func 'markup-signature))
@@ -43,7 +43,7 @@
    (apply string-append
          
          (map doc-markup-function
-              (sort markup-function-list markup-function<?) ) )
+              (sort markup-function-list markup-function<?)))
    "\n@end table"))
 
 (define (markup-doc-node)

diff --git a/scm/document-translation.scm b/scm/document-translation.scm
index 9aa54b4f8ead82c4ceedb0993df70a113a7d11f4..192f39f69a49c6d4e684ed2f2ce985b977f9421c 100644 (file)
--- a/scm/document-translation.scm
+++ b/scm/document-translation.scm
@@ -157,7 +157,7 @@
                    (cdr (assoc 'consists context-desc))))
         (props (cdr (assoc 'property-ops context-desc)))
         (grobs  (context-grobs context-desc))
-        (grob-refs (map (lambda (x) (ref-ify x)) grobs)) )
+        (grob-refs (map (lambda (x) (ref-ify x)) grobs)))
 
     (make <texi-node>
       #:name name

diff --git a/scm/documentation-generate.scm b/scm/documentation-generate.scm
index 82649a53ac4029b7fba130fa8652c9d2d4b09c10..e545248e889c5bc56c1dbb472a75863c8d10ee28 100644 (file)
--- a/scm/documentation-generate.scm
+++ b/scm/documentation-generate.scm
@@ -36,11 +36,11 @@
 
 (display
  (backend-properties-doc-string all-user-grob-properties)
- (open-output-file "layout-properties.tely") )
+ (open-output-file "layout-properties.tely"))
 
 (display
  (translation-properties-doc-string all-user-translation-properties)
- (open-output-file "context-properties.tely") )
+ (open-output-file "context-properties.tely"))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 

diff --git a/scm/font.scm b/scm/font.scm
index 955021c40d1abc5550a74c9b1e0b9b5d6dd63c41..54126715a3d4abe4384ce7613ba3d0dc3e7b4290 100644 (file)
--- a/scm/font.scm
+++ b/scm/font.scm
@@ -47,7 +47,7 @@
        (list
        "Font-size-family: \n"
        (slot-ref leaf 'default-size) 
-       (slot-ref leaf 'size-vector) )))
+       (slot-ref leaf 'size-vector))))
 
 (define-method (display (node <Font-tree-node>) port)
 

diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm
index b6bdb22368ebba2d476740fae08a8feac0593743..b5d91fe99c6d8c07b0c7f62b68bbed859c9ed7ad 100644 (file)
--- a/scm/framework-tex.scm
+++ b/scm/framework-tex.scm
@@ -20,13 +20,13 @@
   (if (ly:get-option 'safe)
       (regexp-substitute/global
        #f "\\\\"
-       (regexp-substitute/global #f "([{}])" s 'pre  "\\" 1 'post )
+       (regexp-substitute/global #f "([{}])" s 'pre  "\\" 1 'post)
        'pre "$\\backslash$" 'post)
       s))
 
 (define (symbol->tex-key sym)
   (regexp-substitute/global
-   #f "_" (sanitize-tex-string (symbol->string sym)) 'pre "X" 'post) )
+   #f "_" (sanitize-tex-string (symbol->string sym)) 'pre "X" 'post))
 
 (define (tex-number-def prefix key number)
   (string-append

diff --git a/scm/fret-diagrams.scm b/scm/fret-diagrams.scm
index 211503981c7ae3307f15c2b3ee2ce040976e5945..6a41b3f666d10accd71b7bcb7cdc3a4ab505d9cf 100644 (file)
--- a/scm/fret-diagrams.scm
+++ b/scm/fret-diagrams.scm
@@ -246,25 +246,26 @@ with magnification @varr{mag} of the string @var{text}."
    (if (not (null? barre-list))
      (let* ((string1 (caar barre-list))
             (string2 (cadar barre-list))
-            (fret    (caddar barre-list))
+            (fret (caddar barre-list))
             (barre-type (chain-assoc-get 'barre-type props 'curved))
             (scale-dot-radius (* size dot-radius))
             (barre-vertical-offset (chain-assoc-get 'barre-vertical-offset props 0.5))
-            ; 2 is 1 for empty fret at bottom of figure + 1 for interval (top-fret - fret + 1) -- not an arbitrary constant
-            (dot-center-y (* size (- (+ 2 (- (cadr fret-range) fret))dot-position) ))
-            (bottom (+  dot-center-y (* barre-vertical-offset scale-dot-radius)))
+            ;; 2 is 1 for empty fret at bottom of figure + 1 for interval (top-fret - fret + 1) -- not an arbitrary constant
+            (dot-center-y (* size
+                            (- (+ 2 (- (cadr fret-range) fret)) dot-position)))
+            (bottom (+ dot-center-y (* barre-vertical-offset scale-dot-radius)))
             (left (* size (- string-count string1)))
             (right (* size (- string-count string2)))
-;            (bezier-thick (chain-assoc-get 'bezier-thickness props 0.1))
+;;            (bezier-thick (chain-assoc-get 'bezier-thickness props 0.1))
             (bezier-thick 0.1)
-;            (bezier-height (chain-assoc-get 'bezier-height props 0.5))
+;;            (bezier-height (chain-assoc-get 'bezier-height props 0.5))
             (bezier-height 0.5)
             (bezier-list (make-bezier-sandwich-list left right bottom (* size bezier-height) (* size bezier-thick)))
             (barre-stencil (if (eq? barre-type 'straight)
                               (ly:make-stencil (list 'draw-line (* size dot-radius) left dot-center-y right dot-center-y)
                                                (cons left right)
                                                (cons (- dot-center-y scale-dot-radius) (+ dot-center-y scale-dot-radius))) 
-                              (ly:make-stencil (list 'bezier-sandwich `(quote ,bezier-list) (* size bezier-thick) )
+                              (ly:make-stencil (list 'bezier-sandwich `(quote ,bezier-list) (* size bezier-thick))
                                   (cons left right)
                                   (cons bottom (+ bottom (* size bezier-height)))))))
         (if (not (null? (cdr barre-list)))
@@ -505,7 +506,7 @@ Note:  There is no limit to the number of fret indications per string.
                  
 (define (get-numeric-from-key keystring)
  "Get the numeric value from a key  of the form k:val"
-    (string->number (substring keystring 2  (string-length keystring) )))
+    (string->number (substring keystring 2 (string-length keystring))))
   
 (define (numerify mylist)
  "Convert string values to numeric or character"

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 32b44fddec7a50e67713f032b7e68ca52814634d..fc02af4f6862452314cf1f6800b10be4e6207c4d 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -207,7 +207,7 @@ found."
    c))
 
 (define-public (split-list lst sep?)
-   "(display (split-list '(a b c / d e f / g) (lambda (x) (equal? x '/))) )
+   "(display (split-list '(a b c / d e f / g) (lambda (x) (equal? x '/))))
    =>
    ((a b c) (d e f) (g))
   "

diff --git a/scm/lily.scm b/scm/lily.scm
index 1e907d6936aa41cb381b08fbaeba75d425c15775..b8e3cfc0774cef9db2dc612e952a2163f2f436bc 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -237,7 +237,7 @@ predicates. Print a message at LOCATION if any predicate failed."
 
 (define gc-protect-stat-count 0)
 (define-public (dump-gc-protects)
-  (set! gc-protect-stat-count (1+ gc-protect-stat-count) )
+  (set! gc-protect-stat-count (1+ gc-protect-stat-count))
   (let* ((protects (sort
                    (hash-table->alist (ly:protects))
                    (lambda (a b)

diff --git a/scm/midi.scm b/scm/midi.scm
index 70a4d7c0b00cacbd0eaef4d40347e09f16861e26..ed82a5a525c2e56aef6db4f71c9b5f6f07742978 100644 (file)
--- a/scm/midi.scm
+++ b/scm/midi.scm
@@ -56,7 +56,7 @@
         )
        instrument-equalizer-alist))
 
-;; (name . program+32768*(channel10 ? 1 : 0) )
+;; (name . program+32768*(channel10 ? 1 : 0))
 (define instrument-names-alist '())
 (set! instrument-names-alist
       (append

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 3048acebea3c7d34dc3b4936ed736143001031ff..f4bee703a25d16f7c42edcf812c7dce2d8e60a3a 100644 (file)
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -734,7 +734,7 @@ use GrandStaff as a context. "
       ;; as cautionaries
       ((equal? style 'modern-voice-cautionary)
        (set-accidentals-properties #f
-                                  '(Voice (same-octave . 0) )
+                                  '(Voice (same-octave . 0))
                                   '(Voice (any-octave . 0) (same-octave . 1)
                                           Staff (same-octave . 0) (any-octave . 0) (same-octave . 1))
                                   context))
@@ -790,6 +790,6 @@ use GrandStaff as a context. "
   
   (let* ((skip
          (make-multi-measure-rest
-          (ly:make-duration 0 0) '() )))
+          (ly:make-duration 0 0) '())))
     (ly:music-compress skip (ly:music-length mus))
     skip))

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 6234339c1339b02e9712e024d740b1dcd84d09cd..6172b8cb2ed92af9f95a17f380edf1eda931107a 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -5,6 +5,7 @@
 ;;;; (c)  1998--2004 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;; Han-Wen Nienhuys <hanwen@cs.uu.nl>
 
+
 ;;; Tablature functions, by Jiba (jiba@tuxfamily.org)
 
 ;; The TabNoteHead stem attachment function.
@@ -24,16 +25,16 @@
   (let* ((note-collums (ly:grob-property grob 'note-columns))
          (note-column1 (cadr note-collums))
          (note-column2 (car  note-collums))
-         (note1        (car (ly:grob-property note-column1 'note-heads)))
-         (note2        (car (ly:grob-property note-column2 'note-heads)))
-        (text1  (ly:grob-property note1 'text))
-        (text2  (ly:grob-property note2 'text))
-         (fret1        (if (string? text1) (string->number text1) 0))
-         (fret2        (if (string? text2) (string->number text2) 0))
-         (letter       (cond
-                       ((< fret1 fret2) "H")
-                       ((> fret1 fret2) "P")
-                       (else ""))))
+         (note1 (car (ly:grob-property note-column1 'note-heads)))
+         (note2 (car (ly:grob-property note-column2 'note-heads)))
+        (text1 (ly:grob-property note1 'text))
+        (text2 (ly:grob-property note2 'text))
+         (fret1 (if (string? text1) (string->number text1) 0))
+         (fret2 (if (string? text2) (string->number text2) 0))
+         (letter (cond
+                 ((< fret1 fret2) "H")
+                 ((> fret1 fret2) "P")
+                 (else ""))))
     (let* ((slur
            ;; (Slur::print grob)
 
@@ -52,34 +53,31 @@
                   -2.0)))
        
         (ly:stencil-set-extent! text 0 (cons x x))
-        (ly:stencil-align-to! text 0 1))) ) )
+        (ly:stencil-align-to! text 0 1)))))
 
-                                       ;      (ly:stencil-combine-at-edge slur 1 1 text -0.6)
+;; (ly:stencil-combine-at-edge slur 1 1 text -0.6)
 
 
 
 (define-public guitar-tunings '(4 -1 -5 -10 -15 -20))
 
-                                       ; end of tablature functions
+;;; end of tablature functions
 
 
 (define-public (make-stencil-boxer line-thick x-padding y-padding callback)
   "Makes a routine that adds a box around the grob parsed as argument"
   (define (stencil-boxer grob)
-    (let*
-       (
-        (mol    (callback grob))
-        (x-ext (interval-widen (ly:stencil-extent mol 0) x-padding))
-        (y-ext (interval-widen (ly:stencil-extent mol 1) y-padding))
-        (x-rule (make-filled-box-stencil (interval-widen x-ext line-thick)
-                                         (cons 0 line-thick)))
-        (y-rule (make-filled-box-stencil (cons 0 line-thick) y-ext)))
-
+    (let* ((mol (callback grob))
+          (x-ext (interval-widen (ly:stencil-extent mol 0) x-padding))
+          (y-ext (interval-widen (ly:stencil-extent mol 1) y-padding))
+          (x-rule (make-filled-box-stencil (interval-widen x-ext line-thick)
+                                           (cons 0 line-thick)))
+          (y-rule (make-filled-box-stencil (cons 0 line-thick) y-ext)))
+      
       (set! mol (ly:stencil-combine-at-edge mol 0 1 y-rule x-padding))
       (set! mol (ly:stencil-combine-at-edge mol 0 -1 y-rule x-padding))
       (set! mol (ly:stencil-combine-at-edge mol 1 1 x-rule 0))  
       (set! mol (ly:stencil-combine-at-edge mol 1 -1 x-rule 0))
-      
       mol))
   stencil-boxer)
 
@@ -230,7 +228,7 @@ centered, X==1 is at the right, X == -1 is at the left."
 
     (if (equal? result #f)
        (ly:warn "Unknown bar glyph: `~S'" glyph)
-       (index-cell (cdr result) dir))) )
+       (index-cell (cdr result) dir))))
 
 (define-public (shift-right-at-line-begin g)
   "Shift an item to the right, but only at the start of the line."

diff --git a/scm/output-pdf.scm b/scm/output-pdf.scm
index 8ee7363c4135e9964d4c7ae3532c27b42bba0b12..6cc3a1f75176e570d7e237fc441495cb0b726ea9 100644 (file)
--- a/scm/output-pdf.scm
+++ b/scm/output-pdf.scm
@@ -34,7 +34,7 @@
   (moveto (+ x (car currentpoint)) (+ y (cdr currentpoint))))
 (define (lineto x y)
   (set! currentpoint (cons x y))
-  (string-append (showcp) "lst "))
+  (string-append (showcp) "l "))
 (define (lineto-pair pair)
   (lineto (car pair) (cdr pair)))
 (define (rlineto x y)

diff --git a/scm/output-pdftex.scm b/scm/output-pdftex.scm
index e8378aeacb6a5b1eb5301c84ade610bb82208017..9dfb6040aec9642104fec2e7a5499ad18e6b2aa2 100644 (file)
--- a/scm/output-pdftex.scm
+++ b/scm/output-pdftex.scm
@@ -216,4 +216,4 @@
 (define (no-origin) "")
 
 (define-public (pdftex-output-expression expr port)
-  (display (eval expr this-module) port) )
+  (display (eval expr this-module) port))

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index ea29cff999b68c5fa9fc2ce108afac5daca4ca7d..db74518d9472732a96a2c4c31f933ba857360201 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -230,7 +230,7 @@
   ;; extract the hsbw for /space from the font.
   (let* ((space-length (cdar (ly:text-dimension font " "))) 
         (commands '())
-        (add-command (lambda (x) (set! commands (cons x commands)))) )
+        (add-command (lambda (x) (set! commands (cons x commands)))))
 
     (string-fold
      (lambda (chr word)

diff --git a/scm/page-layout.scm b/scm/page-layout.scm
index ccfc71329a028ab96d11fbf885865504ee7c0eb6..ac4283c7a1a3e2d5273b7853b454e817751402a7 100644 (file)
--- a/scm/page-layout.scm
+++ b/scm/page-layout.scm
@@ -209,7 +209,7 @@ is what have collected so far, and has ascending page numbers."
                     lines)
                    (if (= (length lines) 1)
                        '((0 .  0))
-                       '())) ))
+                       '()))))
         (real-extents
          (list->vector
           (append
@@ -217,7 +217,7 @@ is what have collected so far, and has ascending page numbers."
             (lambda (sys) (ly:paper-system-extent sys Y)) lines)
            (if (= (length lines) 1)
                '((0 .  0))
-               '()) )))
+               '()))))
         (no-systems (vector-length real-extents))
         (topskip (interval-end (vector-ref real-extents 0)))
         (space-left (- page-height

diff --git a/scm/part-combiner.scm b/scm/part-combiner.scm
index 2679c195e74cb7ad3594031d79762b32d7927c4b..989b3c2884de405bedb9bc3da16df8821dd3cfb7 100644 (file)
--- a/scm/part-combiner.scm
+++ b/scm/part-combiner.scm
@@ -26,7 +26,7 @@
   (display (events x) file)
   (display " active = " file)
   (display (span-state x) file)
-  (display "\n" file) )
+  (display "\n" file))
 
 (define-method (note-events (vs <Voice-state>))
   (define (f? x)
@@ -35,7 +35,7 @@
 
 (define-method (previous-voice-state (vs <Voice-state>))
   (let ((i (slot-ref vs 'vector-index))
-       (v (slot-ref vs 'state-vector)) )
+       (v (slot-ref vs 'state-vector)))
     (if (< 0 i)
        (vector-ref v (1- i))
        #f)))
@@ -57,7 +57,7 @@
   (display (configuration x) f)
   (if (synced? x)
       (display " synced "))
-  (display "\n" f) )
+  (display "\n" f))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
@@ -73,8 +73,8 @@
                                    #:tuning (cdar v)
                                    #:events (map car (cdr v))))
                                evl))))
-    (do ( (i 0 (1+ i)) )
-       ( (= i (vector-length vec)) vec)
+    (do ((i 0 (1+ i)))
+       ((= i (vector-length vec)) vec)
       (slot-set! (vector-ref vec i) 'vector-index i)
       (slot-set! (vector-ref vec i) 'state-vector vec))))
 
@@ -499,7 +499,7 @@ the mark when there are no spanners active."
 
 (define-public (add-quotable name mus)
   (set! noticed '())
-  (let* ((tab (eval 'musicQuotes (current-module) ))
+  (let* ((tab (eval 'musicQuotes (current-module)))
         (context (ly:run-translator (context-spec-music mus 'Voice)
                                     part-combine-listener))
         (first-voice-handle (last-pair noticed)))

diff --git a/scm/script.scm b/scm/script.scm
index 74631d0b8d40b2c1c83028f1d313d31188c37ba3..a9e576251016f80776a277037390109f8a80f93a 100644 (file)
--- a/scm/script.scm
+++ b/scm/script.scm
@@ -75,7 +75,7 @@
           (direction .  1)))
         ("stopped" .
          ((script-stencil . (feta . ("stopped" . "stopped")))
-          (direction  . 1) ))
+          (direction  . 1)))
         ("staccato" .
          ((script-stencil . (feta . ("staccato" . "staccato")))
           (side-relative-direction .  -1)
@@ -98,7 +98,7 @@
         ("upbow" .
          ((script-stencil . (feta . ("upbow" . "upbow")))
           (inside-slur . #f)
-          (direction  . 1) ))
+          (direction  . 1)))
         ("downbow" .
          ((script-stencil . (feta . ("downbow" . "downbow")))
           (inside-slur . #f)
@@ -109,70 +109,70 @@
          )
         ("rheel" .
          ((script-stencil . (feta . ("dpedalheel" . "dpedalheel")))
-          (direction  . 1) ))
+          (direction  . 1)))
         ("ltoe" .
          ((script-stencil . (feta . ("upedaltoe" . "upedaltoe")))
-          (direction  . -1) ))
+          (direction  . -1)))
         ("rtoe" .
          ((script-stencil . (feta . ("dpedaltoe" . "dpedaltoe")))
-          (direction  . 1) ))
+          (direction  . 1)))
         ("turn" .
          ((script-stencil . (feta . ("turn" . "turn")))
-          (direction  . 1) ))
+          (direction  . 1)))
         ("open" .
          ((script-stencil . (feta . ("open" . "open")))
-          (direction  . 1) ))
+          (direction  . 1)))
         ("flageolet" .
          ((script-stencil . (feta . ("flageolet" . "flageolet")))
-          (direction  . 1) ))
+          (direction  . 1)))
         ("reverseturn" .
          ((script-stencil . (feta . ("reverseturn" . "reverseturn")))
-          (direction  . 1) ))
+          (direction  . 1)))
         ("trill" .
          ((script-stencil . (feta . ("trill" . "trill")))
           (direction . 1)
           (priority . 2000)))
         ("prall" .
          ((script-stencil . (feta . ("prall" . "prall")))
-          (direction  . 1) ))
+          (direction  . 1)))
         ("mordent" .
          ((script-stencil . (feta . ("mordent" . "mordent")))
-          (direction  . 1) ))
+          (direction  . 1)))
         ("prallprall" .
          ((script-stencil . (feta . ("prallprall" . "prallprall")))
-          (direction  . 1) ))
+          (direction  . 1)))
         ("prallmordent" .
          ((script-stencil . (feta . ("prallmordent" . "prallmordent")))
-          (direction  . 1) ))
+          (direction  . 1)))
         ("upprall" .
          ((script-stencil . (feta . ("upprall" . "upprall")))
-          (direction  . 1) ))
+          (direction  . 1)))
         ("downprall" .
          ((script-stencil . (feta . ("downprall" . "downprall")))
-          (direction  . 1) ))
+          (direction  . 1)))
         ("upmordent" .
          ((script-stencil . (feta . ("upmordent" . "upmordent")))
-          (direction  . 1) ))
+          (direction  . 1)))
         ("downmordent" .
          ((script-stencil . (feta . ("downmordent" . "downmordent")))
-          (direction  . 1) ))
+          (direction  . 1)))
         ("lineprall" .
          ((script-stencil . (feta . ("lineprall" . "lineprall")))
-          (direction  . 1) ))
+          (direction  . 1)))
         ("pralldown" .
          ((script-stencil . (feta . ("pralldown" . "pralldown")))
-          (direction  . 1) ))
+          (direction  . 1)))
         ("prallup" .
          ((script-stencil . (feta . ("prallup" . "prallup")))
-          (direction  . 1) ))
+          (direction  . 1)))
         ("segno" .
          ((script-stencil . (feta . ("segno" . "segno")))
-          (direction  . 1) ))
+          (direction  . 1)))
         ("coda" .
          ((script-stencil . (feta . ("coda" . "coda")))
-          (direction  . 1) ))
+          (direction  . 1)))
         ("varcoda" .
          ((script-stencil . (feta . ("varcoda" . "varcoda")))
-          (direction  . 1) )))
+          (direction  . 1))))
        default-script-alist)
       )