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

diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index c09e7572d5d3d0a77f687ca37c71e2c6e6c0bd3a..73c147c1599d4dfd1b2acf4108506ff7bc54de77 100644 (file)
--- 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\