X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fbackend-library.scm;h=74e53693594a9c836aed76fbd10a5768a2c3428a;hb=b6970d44a8b11d1499e0054a98e9359ca3db5d93;hp=756d6c6638ad70cde0badec3a18f5bf9e39fe453;hpb=f9b2c59dd878330905eef9d6c1c7b3729b44aba7;p=lilypond.git

diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index 756d6c6638..74e5369359 100644
--- a/scm/backend-library.scm
+++ b/scm/backend-library.scm
@@ -36,8 +36,8 @@
   (let* ((pdf-name (string-append (basename name ".ps") ".pdf" ))
 	 (cmd (format #f
 		      "gs\
+ -dSAFER\
  -dCompatibilityLevel=1.4 \
- ~S\
  -sPAPERSIZE=~a\
  -q\
  -dNOPAUSE\
@@ -47,12 +47,13 @@
  -c .setpdfwrite\
  -f ~S\
 "
-		      ;; gs on windows with -dSAFER fails on opening a
-		      ;; file that has no group read permissions.
-		      (if (eq? PLATFORM 'windows) "" "-dSAFER")
 		      (sanitize-command-option papersizename)
 		      pdf-name
 		      name)))
+    ;; The wrapper on windows cannot handle `=' signs,
+    ;; gs has a workaround with #.
+    (if (eq? PLATFORM 'windows)
+	(set! cmd (string-regex-substitute "=" "#" cmd)))
 
     (if (access? pdf-name W_OK)
 	(delete-file pdf-name))