From dc66bebbf1b1c3a4f34750b5f3254777dcf2766a Mon Sep 17 00:00:00 2001 From: Neil Puttock Date: Wed, 16 Sep 2009 20:42:21 +0100 Subject: [PATCH] Whitespace error fixes. --- scm/documentation-lib.scm | 4 ++-- scm/music-functions.scm | 2 +- scm/part-combiner.scm | 8 ++++---- 3 files changed, 7 insertions(+), 7 deletions(-) diff --git a/scm/documentation-lib.scm b/scm/documentation-lib.scm index 79da938b6b..6f82b4018a 100644 --- a/scm/documentation-lib.scm +++ b/scm/documentation-lib.scm @@ -61,7 +61,7 @@ (define (texi-section-command level) (assoc-get level '( - ;; Hmm, texinfo doesn't have ``part'' + ;; Hmm, texinfo doesn't have ``part'' (0 . "@top") (1 . "@chapter") (2 . "@section") @@ -71,7 +71,7 @@ (define (texi-appendix-section-command level) (assoc-get level '((0 . "@top") - (1 . "@appendix") + (1 . "@appendix") (2 . "@appendixsec") (3 . "@appendixsubsec") (4 . "@appendixsubsubsec") diff --git a/scm/music-functions.scm b/scm/music-functions.scm index 549b175d1e..5ad79b4096 100644 --- a/scm/music-functions.scm +++ b/scm/music-functions.scm @@ -481,7 +481,7 @@ OTTAVATION to `8va', or whatever appropriate." (let* ((offset (* -7 octavation)) (string (assoc-get octavation '((2 . "15ma") - (1 . "8va") + (1 . "8va") (0 . #f) (-1 . "8vb") (-2 . "15mb"))))) diff --git a/scm/part-combiner.scm b/scm/part-combiner.scm index c874f09d1c..d1dccbab7a 100644 --- a/scm/part-combiner.scm +++ b/scm/part-combiner.scm @@ -230,10 +230,10 @@ Voice-state objects (set! (ly:music-property m 'elements) (list m1 m2)) (set! (ly:music-property m 'split-list) - (if (and (assoc "one" evs1) (assoc "two" evs2)) - (determine-split-list (reverse! (assoc-get "one" evs1) '()) - (reverse! (assoc-get "two" evs2) '())) - '() )) + (if (and (assoc "one" evs1) (assoc "two" evs2)) + (determine-split-list (reverse! (assoc-get "one" evs1) '()) + (reverse! (assoc-get "two" evs2) '())) + '())) m)) (define-public (determine-split-list evl1 evl2) -- 2.11.4.GIT