diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-07 01:25:14 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-07 01:25:14 +0200 |
| commit | 17b23aa1bfe807c68ddc5ff01eaccc99fd02a058 (patch) | |
| tree | ee82f44eee65f6a864ad76840d117bb2ba7fa06f /scheme/guile/geiser/xref.scm | |
| parent | 95f39e30fd4ae59cf962648dc8c0120c654c05bd (diff) | |
| download | geiser-chez-17b23aa1bfe807c68ddc5ff01eaccc99fd02a058.tar.gz geiser-chez-17b23aa1bfe807c68ddc5ff01eaccc99fd02a058.tar.bz2 | |
Guile: real fix for symbol locations (needs Guile's git head).
Diffstat (limited to 'scheme/guile/geiser/xref.scm')
| -rw-r--r-- | scheme/guile/geiser/xref.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scheme/guile/geiser/xref.scm b/scheme/guile/geiser/xref.scm index 060bec4..18005ee 100644 --- a/scheme/guile/geiser/xref.scm +++ b/scheme/guile/geiser/xref.scm @@ -55,7 +55,7 @@ (define (program-path p) (let* ((mod (program-module p)) (name (and mod (module-name mod)))) - (and name (module-filename name)))) + (and name (module-path name)))) (define (procedure-xref proc . mod-name) (let ((proc-name (or (procedure-name proc) '<anonymous>)) |