(PLATFORM, slashify): Remove double slashes.

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index e427012ad1cb64593d81b3434dc7877e8ddfabc7..2ed241a645272f00c747d942b7d30d10b5aaec7b 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -95,9 +95,11 @@
   ((windows)
    (define native-getcwd getcwd)
    (define (slashify x)
-     (if (string-index x #\/)
+     (if (string-index x #\\)
         x
-        (string-regexp-substitute "\\\\" "/" x)))
+        (string-regexp-substitute
+         "//*" "/"
+         (string-regexp-substitute "\\\\" "/" x))))
    ;; FIXME: this prints a warning.
   (define-public (ly-getcwd)
      (slashify (native-getcwd))))