[nongnu] elpa/geiser-guile 4ab2e9c 016/284: Autodoc: try symbol at point first. Some cleanups.

[Philip Kaludercic]

branch: elpa/geiser-guile
commit 4ab2e9c71e51857d418c99c1cb2e5b679932161c
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Autodoc: try symbol at point first. Some cleanups.
---
 geiser/introspection.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/geiser/introspection.scm b/geiser/introspection.scm
index 14cd021..f6bb152 100644
--- a/geiser/introspection.scm
+++ b/geiser/introspection.scm
@@ -38,7 +38,9 @@
           (else (loop (car syms) (cdr syms))))))
 
 (define (symbol->obj sym)
-  (and (symbol? sym) (module-ref (current-module) sym)))
+  (and (symbol? sym)
+       (module-defined? (current-module) sym)
+       (module-ref (current-module) sym)))
 
 (define (obj-args obj)
   (cond ((not obj) #f)