remove split around-space hack.

[lilypond.git] / scm / output-lib.scm

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index e4a9557b46a3b5469bbb69955436902c64f8fb1a..3c55c436593a1809e15cd78c77ae3e8095961c02 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -108,8 +108,7 @@
 (define-public (comment s) "")
 
 (define-public (ly:numbers->string lst)
-  (apply string-append
-        (map (lambda (x) (string-append (ly:number->string x) " "))  lst)))
+  (string-join (map ly:number->string lst) " "))
 
 (define (number->octal-string x)
   (let* ((n (inexact->exact x))
@@ -126,7 +125,7 @@
 
 (define-public (ly:number-pair->string c)
   (string-append (ly:number->string (car c)) " "
-                (ly:number->string (cdr c)) " "))
+                (ly:number->string (cdr c))))
 
 (define (font i)
   (string-append
@@ -227,7 +226,7 @@ centered, X==1 is at the right, X == -1 is at the left."
                          ("|:" . ("|" . "|:"))
                          ("|." . ("|." . ()))
 
-                         ;; hmm... should we end with a barline here?
+                         ;; hmm... should we end with a bar line here?
                          (".|" . ("|" . ".|"))
                          (":|" . (":|" . ()))
                          ("||" . ("||" . ()))