From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 10 Jun 2007 04:03:10 +0000 (-0300)
Subject: use simple-format / ly:format in backend-library.scm
X-Git-Tag: release/2.11.27-1~15^2~4^2~5
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=fee94d2eab4ac886dc287dda9b6b59331f7d668e;p=lilypond.git

use simple-format / ly:format in backend-library.scm
---

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\