also be robust when converting pairs.

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 09f1a42f259a57f0dc8f5957fb5e9601b8c4dbdb..9a65b0c5e56729714378bf9cefba074b1367abc4 100644 (file)
--- 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) " "))