mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 09:10:22 +02:00
Code Activity

new function: canonicalize-path. use when autocompiling

Browse source 
* libguile/filesys.h:
* libguile/filesys.c (scm_canonicalize_path): New function,
  canonicalize-path.

* module/system/base/compile.scm (compiled-file-name): Canonicalize the
  filename so that compiling e.g. ../foo.scm doesn't compile to
  ~/.guile-ccache/1.9/../foo.scm.
This commit is contained in:
Andy Wingo 2009-06-19 14:26:47 +02:00
parent ffca4c2203
commit 25b82b3485
3 changed files with 25 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/system/base/compile.scm
View file

@ -131,7 +131,8 @@
(else (car %load-compiled-extensions))))
(and %compile-fallback-path
(let ((f (string-append
%compile-fallback-path "/" file (compiled-extension))))
%compile-fallback-path "/" (canonicalize-path file)
(compiled-extension))))
(and (false-if-exception (ensure-writable-dir (dirname f)))
f))))