summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-06 18:22:44 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-06 18:22:44 +0200
commitd8aad434a66e5656b583d17a139da20ca52c3321 (patch)
tree969a8b6d2d59494d5474b8171c025f6a53b4bbf7 /scheme
parentb5941ceec4fc06e3cdac0098ada3a561c476d627 (diff)
downloadgeiser-chez-d8aad434a66e5656b583d17a139da20ca52c3321.tar.gz
geiser-chez-d8aad434a66e5656b583d17a139da20ca52c3321.tar.bz2
Guile: fix for finding locations of symbols in modules outside load path.
Diffstat (limited to 'scheme')
-rw-r--r--scheme/guile/geiser/evaluation.scm5
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)