(or (getenv "MUDSYNC_DATADIR")
"/usr/local/share/mudsync"))
-(define (clean-path path)
- "Remove any nasty .. stuff from the path"
- (string-join (delete ".." (string-split path file-name-separator-char))
- file-name-separator-string))
-
(define (scope-datadir filename)
- (clean-path (string-append %datadir filename)))
+ (string-append %datadir filename))
(define (web-static-filepath filename)
(scope-datadir (string-append "/web-static" filename)))