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 | 7b83e4a2c6a0482fcaf5804ad558a44acc2fbb24 (patch) | |
| tree | e3d86be8147a681e7a09ebd3ee9d864dddb742bb /geiser | |
| parent | 6212ff6e6928d2844ff3b8ff5a40f4e714685262 (diff) | |
| download | geiser-guile-7b83e4a2c6a0482fcaf5804ad558a44acc2fbb24.tar.gz geiser-guile-7b83e4a2c6a0482fcaf5804ad558a44acc2fbb24.tar.bz2 | |
Guile: dead elisp code elimination.
Diffstat (limited to 'geiser')
| -rw-r--r-- | geiser/xref.scm | 2 |
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))) |