summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-14 22:15:09 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-14 22:15:09 +0100
commit4ab2e9c71e51857d418c99c1cb2e5b679932161c (patch)
treecc1fad69dabce012810fc9c2dc7fcbad8596f4b7
parent56671f6b05dc9a4a596a7ed8823ecadcf5b05cb2 (diff)
downloadgeiser-guile-4ab2e9c71e51857d418c99c1cb2e5b679932161c.tar.gz
geiser-guile-4ab2e9c71e51857d418c99c1cb2e5b679932161c.tar.bz2
Autodoc: try symbol at point first. Some cleanups.
-rw-r--r--geiser/introspection.scm4
1 files changed, 3 insertions, 1 deletions
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)