diff options
author | Andy Wingo <wingo@pobox.com> | 2009-06-20 14:26:54 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-06-20 14:26:54 +0200 |
commit | 179fe3363241ea1aeb48f1f63d13d2dd12196dcf (patch) | |
tree | 938015430875117c7c90c76ecd0bf570bfa8ee80 /module/system/base/compile.scm | |
parent | 89cb70a0d5f365ebdfcc0257d6cab4a80a9f6a74 (diff) | |
download | guile-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.scm | 5 |
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)))) |