From c53bdcf0574384c12b18ee27158d9d6ae8238e4f 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.

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

(limited to 'scheme/guile/geiser/xref.scm')

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)
-- 
cgit v1.2.3