Remove two extra spaces from DOC strings

diff --git a/scm/chord-entry.scm b/scm/chord-entry.scm
index bfa9ea09c3d31f93e98546a689de6f1b546901c9..009887bf678dbb35bfedab1f6cd351fc5c550905 100644 (file)
--- a/scm/chord-entry.scm
+++ b/scm/chord-entry.scm
@@ -76,7 +76,7 @@ Entry point for the parser."
             (else (interpret-removals chord mods))))
 
     (define (pitch-octavated-strictly-below p root)
             (else (interpret-removals chord mods))))
 
     (define (pitch-octavated-strictly-below p root)

-      "return P, but octavated, so it is below  ROOT"
+      "return P, but octavated, so it is below ROOT"

       (ly:make-pitch (+ (ly:pitch-octave root)
                         (if (> (ly:pitch-notename root)
                                (ly:pitch-notename p))
       (ly:make-pitch (+ (ly:pitch-octave root)
                         (if (> (ly:pitch-notename root)
                                (ly:pitch-notename p))

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 82db3699d42f38cbf978fa6c5d9e7c981398b2c2..94a566ead4932dcbbf7ce14e382604d44e048a2b 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -424,7 +424,7 @@ bookoutput function"
             (symbol->string (car y))))
 
 (define (map-alist-vals func list)
             (symbol->string (car y))))
 
 (define (map-alist-vals func list)

-  "map FUNC over the vals of  LIST, leaving the keys."
+  "map FUNC over the vals of LIST, leaving the keys."

   (if (null?  list)
       '()
       (cons (cons  (caar list) (func (cdar list)))
   (if (null?  list)
       '()
       (cons (cons  (caar list) (func (cdar list)))