small backport fixes.

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

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index a5abcf207964fe1d72bc07ec2d8de0dd5982fa32..8af5b3fa3dd47d1164f2148fd51e90236a7ffcdd 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -69,7 +69,9 @@
       (ly:number->string num)))
 
 (define (number-pair->string4 numpair)
-  (format #f "~f ~f" (round4 (car numpair)) (round4 (cdr numpair))))
+  (string-append (str4 (car numpair))
+                " "
+                (str4 (cdr numpair))))
 
 (define (numbers->string4 numlist)
   (string-join (map str4 numlist) " "))