- (define (slashify x)
- (if (string-index x #\\)
- x
- (string-regexp-substitute
- "//*" "/"
- (string-regexp-substitute "\\\\" "/" x))))
-
- ;; FIXME: this prints a warning.
- (define-public (ly-getcwd)
- (slashify (native-getcwd))))
-
- (else
- (define-public ly-getcwd
- getcwd)))