summaryrefslogtreecommitdiff
path: root/geiser
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-07 02:21:06 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-07 02:21:06 +0200
commit7b83e4a2c6a0482fcaf5804ad558a44acc2fbb24 (patch)
treee3d86be8147a681e7a09ebd3ee9d864dddb742bb /geiser
parent6212ff6e6928d2844ff3b8ff5a40f4e714685262 (diff)
downloadgeiser-guile-7b83e4a2c6a0482fcaf5804ad558a44acc2fbb24.tar.gz
geiser-guile-7b83e4a2c6a0482fcaf5804ad558a44acc2fbb24.tar.bz2
Guile: dead elisp code elimination.
Diffstat (limited to 'geiser')
-rw-r--r--geiser/xref.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/geiser/xref.scm b/geiser/xref.scm
index 18005ee..4f1b2cc 100644
--- a/geiser/xref.scm
+++ b/geiser/xref.scm
@@ -60,7 +60,7 @@
(define (procedure-xref proc . mod-name)
(let ((proc-name (or (procedure-name proc) '<anonymous>))
(mod-name (if (null? mod-name)
- (symbol-module name)
+ (symbol-module proc-name)
(car mod-name))))
(make-xref proc proc-name mod-name)))