summaryrefslogtreecommitdiff
path: root/module/system/base/compile.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-06-20 14:26:54 +0200
committerAndy Wingo <wingo@pobox.com>2009-06-20 14:26:54 +0200
commit179fe3363241ea1aeb48f1f63d13d2dd12196dcf (patch)
tree938015430875117c7c90c76ecd0bf570bfa8ee80 /module/system/base/compile.scm
parent89cb70a0d5f365ebdfcc0257d6cab4a80a9f6a74 (diff)
downloadguile-179fe3363241ea1aeb48f1f63d13d2dd12196dcf.tar.gz
put autocompiled files into ~/.cache or $XDG_CACHE_HOME
* module/system/base/compile.scm (compiled-file-name): Remove unneeded path separator. * libguile/load.c (scm_init_load_path): Change so the default cache path is ~/.cache/guile/ccache/1.9, and respect $XDG_CACHE_HOME.
Diffstat (limited to 'module/system/base/compile.scm')
-rw-r--r--module/system/base/compile.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index dfe8823be..22f8e04f1 100644
--- a/module/system/base/compile.scm
+++ b/module/system/base/compile.scm
@@ -131,7 +131,10 @@
(else (car %load-compiled-extensions))))
(and %compile-fallback-path
(let ((f (string-append
- %compile-fallback-path "/" (canonicalize-path file)
+ %compile-fallback-path
+ ;; no need for '/' separator here, canonicalize-path
+ ;; will give us an absolute path
+ (canonicalize-path file)
(compiled-extension))))
(and (false-if-exception (ensure-writable-dir (dirname f)))
f))))