From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 30 Dec 2006 16:49:20 +0000 (+0100)
Subject: also be robust when converting pairs.
X-Git-Tag: release/2.11.6-1~13
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0bcbbe01e6dc1d0e37c5972025a482b7b9c14da1;p=lilypond.git

also be robust when converting pairs.
---

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 09f1a42f25..9a65b0c5e5 100644
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -72,7 +72,9 @@
       (format #f "~f" (round4 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) " "))