X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fbackend-library.scm;h=c2c89eed77ed71f90a327b2f9b77f502636850c3;hb=b3e7bc3a6fd47b2fa6d97ceb8ffb42ad20dd9057;hp=8963fe15caf9b344f55ec26cd19a1aba39d0bcfa;hpb=6928c1207b7df4516e58d38724e6a3985cd1c3f6;p=lilypond.git

diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index 8963fe15ca..c2c89eed77 100644
--- 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")