summaryrefslogtreecommitdiff
path: root/scheme/guile
diff options
context:
space:
mode:
Diffstat (limited to 'scheme/guile')
-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)))