X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fpackage-config.scm;fp=mudsync%2Fpackage-config.scm;h=679508d91e96ca3cfde1be2756c727c52855d65a;hp=e0fe09ec6ca79b6c7ad3ed603d87baa51031d24f;hb=086e3362830393bcd51a3d79fe50c66ca15b7112;hpb=0327c09557568d1fefd7d642333c21c8a9f655db

diff --git a/mudsync/package-config.scm b/mudsync/package-config.scm
index e0fe09e..679508d 100644
--- a/mudsync/package-config.scm
+++ b/mudsync/package-config.scm
@@ -26,13 +26,8 @@
   (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)))