(grob-cause): replace backslashes by /

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

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 91c4dc55d67c396603649464843bde2c8cf1c203..6b7a86bfbb701b37433eb63d5a5e1f12705cf209 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -271,7 +271,7 @@ grestore\n"
   "\n unknown\n")
 
 (define (url-link url x y)
-  (format "~a ~a ~a ~a (~a) mark_URI"
+  (format "~$ ~$ ~$ ~$ (~a) mark_URI"
          (car x)
          (car y)
          (cdr x)