diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-07 02:21:06 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-07 02:21:06 +0200 |
| commit | f0db115f00abb485c0197de931aa4f233d764e5f (patch) | |
| tree | cb2091fdaeda5643ba47617d76ea6135374a592f /scheme/guile/geiser/xref.scm | |
| parent | f669d52cfa944865f0b1f340dc0a7e634fec8e99 (diff) | |
| download | geiser-guile-f0db115f00abb485c0197de931aa4f233d764e5f.tar.gz geiser-guile-f0db115f00abb485c0197de931aa4f233d764e5f.tar.bz2 | |
Guile: dead elisp code elimination.
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 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))) |