+2005-06-01 Jan Nieuwenhuizen <janneke@gnu.org>
+
+ * scm/lily.scm (PLATFORM, slashify): Remove double slashes.
+
2005-06-01 Han-Wen Nienhuys <hanwen@xs4all.nl>
* input/mutopia/R.Schumann/romanze-op28-2.ly (leftb): bugfix.
((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))))