diff options
| -rw-r--r-- | scheme/guile/geiser/evaluation.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/scheme/guile/geiser/evaluation.scm b/scheme/guile/geiser/evaluation.scm index 96d194b..7f2b8f7 100644 --- a/scheme/guile/geiser/evaluation.scm +++ b/scheme/guile/geiser/evaluation.scm @@ -56,8 +56,9 @@ (define ge:eval ge:compile) (define (ge:compile-file path) - "Compile a file, given its full @var{path}." - (ge:compile `(load-compiled (compile-file ,path)) '(geiser evaluation))) + (ge:compile `(load-compiled (compile-file ,path + #:canonicalization 'absolute)) + '(geiser evaluation))) (define ge:load-file ge:compile-file) |