From 0bcbbe01e6dc1d0e37c5972025a482b7b9c14da1 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sat, 30 Dec 2006 17:49:20 +0100 Subject: [PATCH] also be robust when converting pairs. --- scm/output-ps.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) " ")) -- 2.39.5