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

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

diff --git a/scm/output-sketch.scm b/scm/output-sketch.scm
index ed2bad7ed8efe610ca92eff790c27801d65b6dda..89f7dc6ef7dc00790f837316613baea401ebe818 100644 (file)
--- a/scm/output-sketch.scm
+++ b/scm/output-sketch.scm
@@ -3,7 +3,7 @@
 ;;;
 ;;;  source file of the GNU LilyPond music typesetter
 ;;; 
-;;; (c)  1998--2003 Jan Nieuwenhuizen <janneke@gnu.org>
+;;; (c)  1998--2004 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;; Han-Wen Nienhuys <hanwen@cs.uu.nl>
 
 
@@ -99,7 +99,7 @@
 ;;; urg.
 (define (sketch-numbers->string l)
   (string-append
-   (number->string (car l))
+   (ly:number->string (car l))
    (if (null? (cdr l))
        ""
        (string-append ","  (sketch-numbers->string (cdr l))))))
@@ -206,7 +206,7 @@
 
 (define (bracket arch_angle arch_width arch_height  height arch_thick thick)
   (string-append
-   (numbers->string (list arch_angle arch_width arch_height height arch_thick thick)) " draw_bracket" ))
+   (ly:numbers->string (list arch_angle arch_width arch_height height arch_thick thick)) " draw_bracket" ))
 
 (define (char x y i)
   (string-append
@@ -227,7 +227,7 @@
 ;; what the heck is this interface ?
 (define (dashed-slur thick dash l)
   (string-append 
-   (apply string-append (map number-pair->string l)) 
+   (apply string-append (map ly:number-pair->string l)) 
    (ly:number->string thick) 
    " [ "
    (ly:number->string dash)
@@ -249,7 +249,7 @@
    " ] 0 draw_dashed_line"))
 
 (define (repeat-slash wid slope thick)
- (string-append (numbers->string (list wid slope thick))
+ (string-append (ly:numbers->string (list wid slope thick))
   " draw_repeat_slash"))
 
 (define (end-output)
@@ -327,7 +327,7 @@ layer('Layer 1',1,1,0,0,(0,0,0))
 (define (ez-ball ch letter-col ball-col)
   (string-append
    " (" ch ") "
-   (numbers->string (list letter-col ball-col))
+   (ly:numbers->string (list letter-col ball-col))
    " /Helvetica-Bold " ;; ugh
    " draw_ez_ball"))