diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-04-01 11:54:01 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-04-01 11:54:01 +0200 |
| commit | c53bdcf0574384c12b18ee27158d9d6ae8238e4f (patch) | |
| tree | 4e061bd024c8fe03ed9450dca875bf8ea7545d46 /scheme/guile/geiser/xref.scm | |
| parent | 65f268c860571158fff9aca4b0b8d083e2443e14 (diff) | |
| download | geiser-chez-c53bdcf0574384c12b18ee27158d9d6ae8238e4f.tar.gz geiser-chez-c53bdcf0574384c12b18ee27158d9d6ae8238e4f.tar.bz2 | |
Better xref display.
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 33821b7..059fbb0 100644 --- a/scheme/guile/geiser/xref.scm +++ b/scheme/guile/geiser/xref.scm @@ -52,7 +52,7 @@ (and proc `((location . ,(or (program-location proc) (symbol-location name))) (signature . ,(object-signature name proc)) - (module . ,module)))) + (module . ,(or module '()))))) (define (program-location p) (cond ((not (program? p)) #f) |