From ce78e11bd6438311611dcbae6140ebc10c68d84c Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Wed, 1 Apr 2009 11:54:01 +0200
Subject: Better xref display.

---
 geiser/xref.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'geiser/xref.scm')

diff --git a/geiser/xref.scm b/geiser/xref.scm
index 33821b7..059fbb0 100644
--- a/geiser/xref.scm
+++ b/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)
-- 
cgit v1.2.3