From d8aad434a66e5656b583d17a139da20ca52c3321 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sun, 6 Jun 2010 18:22:44 +0200
Subject: Guile: fix for finding locations of symbols in modules outside load
 path.

---
 scheme/guile/geiser/evaluation.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'scheme')

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)
 
-- 
cgit v1.2.3