From fee94d2eab4ac886dc287dda9b6b59331f7d668e Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 10 Jun 2007 01:03:10 -0300
Subject: [PATCH] use simple-format / ly:format in backend-library.scm

---
 scm/backend-library.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index c09e7572d5..73c147c159 100644
--- a/scm/backend-library.scm
+++ b/scm/backend-library.scm
@@ -76,11 +76,11 @@
 	 (is-eps (string-match "\\.eps$" name))
 	 (paper-size-string (if is-eps
 				" -dEPSCrop "
-				(format "-dDEVICEWIDTHPOINTS=~,2f \
--dDEVICEHEIGHTPOINTS=~,2f "
+				(ly:format "-dDEVICEWIDTHPOINTS=~$ \
+-dDEVICEHEIGHTPOINTS=~$ "
 					paper-width paper-height )))
 
-	 (cmd (format #f
+	 (cmd (simple-format #f
 		      "~a\
  ~a\
  ~a\
-- 
2.39.5