* lily/lily-guile.cc (ly:number->string): Do not leave space at

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

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index b31d0bed133e757eea1f0eb62a2c1533e9a6b8a8..e4a9557b46a3b5469bbb69955436902c64f8fb1a 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -88,7 +88,7 @@
  )
 
 (define-public (arg->string arg)
-  (cond ((number? arg) (inexact->string arg 10))
+  (cond ((number? arg) (ly:inexact->string arg 10))
        ((string? arg) (string-append "\"" arg "\""))
        ((symbol? arg) (string-append "\"" (symbol->string arg) "\""))))
 
@@ -107,8 +107,9 @@
 ;; do nothing in .scm output
 (define-public (comment s) "")
 
-(define-public (numbers->string lst)
-  (apply string-append (map ly:number->string lst)))
+(define-public (ly:numbers->string lst)
+  (apply string-append
+        (map (lambda (x) (string-append (ly:number->string x) " "))  lst)))
 
 (define (number->octal-string x)
   (let* ((n (inexact->exact x))
@@ -119,12 +120,11 @@
      (number->string n8)
      (number->string (remainder (- n (+ (* n64 64) (* n8 8))) 8)))))
 
-(define-public (inexact->string x radix)
+(define-public (ly:inexact->string x radix)
   (let ((n (inexact->exact x)))
     (number->string n radix)))
 
-
-(define-public (number-pair->string c)
+(define-public (ly:number-pair->string c)
   (string-append (ly:number->string (car c)) " "
                 (ly:number->string (cdr c)) " "))