summaryrefslogtreecommitdiff
path: root/scheme/guile/geiser/xref.scm
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
commitf0db115f00abb485c0197de931aa4f233d764e5f (patch)
treecb2091fdaeda5643ba47617d76ea6135374a592f /scheme/guile/geiser/xref.scm
parentf669d52cfa944865f0b1f340dc0a7e634fec8e99 (diff)
downloadgeiser-chez-f0db115f00abb485c0197de931aa4f233d764e5f.tar.gz
geiser-chez-f0db115f00abb485c0197de931aa4f233d764e5f.tar.bz2
Guile: dead elisp code elimination.
Diffstat (limited to 'scheme/guile/geiser/xref.scm')
-rw-r--r--scheme/guile/geiser/xref.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/scheme/guile/geiser/xref.scm b/scheme/guile/geiser/xref.scm
index 18005ee..4f1b2cc 100644
--- a/scheme/guile/geiser/xref.scm
+++ b/scheme/guile/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)))