(grob-cause): replace backslashes by /

[lilypond.git] / scm / output-ps.scm

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index efc5ad3ca3b35b7270400c5c836b2fb1ea4cf5a2..91c4dc55d67c396603649464843bde2c8cf1c203 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -154,7 +154,7 @@
                       (g (cadddr item))
                       (prefix (if  (string? g) "/" "")))
 
-                   (format #f " gsave ~a~a glyphshow grestore ~a ~a rmoveto \n" prefix g (+ w x) y)
+                   (format #f " gsave ~a~a glyphshow grestore ~$ ~$ rmoveto \n" prefix g (+ w x) y)
                    ))
                w-x-y-named-glyphs))))
 
@@ -174,7 +174,7 @@
 
          (if (and (< 0 (interval-length x-ext))
                   (< 0 (interval-length y-ext)))
-             (format "~a ~a ~a ~a (textedit://~a:~a:~a:~a) mark_URI\n"
+             (format "~$ ~$ ~$ ~$ (textedit://~a:~a:~a:~a) mark_URI\n"
                      (ly:number->string (+ (car offset) (car x-ext)))
                      (ly:number->string (+ (cdr offset) (car y-ext)))
                      (ly:number->string (+ (car offset) (cdr x-ext)))