new function: canonicalize-path. use when autocompiling

[bpt/guile.git] / module / system / base / compile.scm

diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index 9f0ff2f..dfe8823 100644 (file)
--- a/module/system/base/compile.scm
+++ b/module/system/base/compile.scm
@@ -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))))