X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fbackend-library.scm;h=c2c89eed77ed71f90a327b2f9b77f502636850c3;hb=4183b25bbdcb9880b65ca7f487bdc2065bbd5f57;hp=8963fe15caf9b344f55ec26cd19a1aba39d0bcfa;hpb=24d7a2abc788061a4f7a81ee3c2a9f330ddca93f;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")