Merge branch 'master' into lilypond/translation

[lilypond.git] / scm / backend-library.scm

diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index 8963fe15caf9b344f55ec26cd19a1aba39d0bcfa..c2c89eed77ed71f90a327b2f9b77f502636850c3 100644 (file)
--- a/scm/backend-library.scm
+++ b/scm/backend-library.scm
@@ -109,10 +109,9 @@
     (if (eq? PLATFORM 'windows)
        (begin
          (set! cmd (string-regexp-substitute "=" "#" cmd))
-         (set! cmd (string-regexp-substitute "-dSAFER " "" cmd))))
-
-    (if (access? pdf-name W_OK)
-       (delete-file pdf-name))
+         (set! cmd (string-regexp-substitute "-dSAFER " "" cmd))
+         (if (access? pdf-name W_OK)
+             (delete-file pdf-name))))
 
     (ly:message (_ "Converting to `~a'...") pdf-name)
     (ly:progress "\n")