* scm/editor.scm (slashify): New function.

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index 565a5e3c696526e188d6c42f0e1a7b7e70c46f1a..23d2152f077b7b00cd77f6de70a81d872cb3f390 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -97,7 +97,7 @@
    (define (slashify x)
      (if (string-index x #\/)
         x
-        (string-regexp-substitute "\\" "/" x)))
+        (string-regexp-substitute "\\\\" "/" x)))
    ;; FIXME: this prints a warning.
   (define-public (ly-getcwd)
      (slashify (native-getcwd))))