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)
-      "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))

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)
-  "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)))