branch: elpa/geiser-guile
commit 4ab2e9c71e51857d418c99c1cb2e5b679932161c
Author: Jose Antonio Ortega Ruiz <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
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)
