summaryrefslogtreecommitdiff
path: root/scheme/guile/geiser/introspection.scm
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
commit1d8477f7cd318b5692e5650901ac5ac9af6f19c6 (patch)
tree240e634b76df74767c5ca641e59413856821fd30 /scheme/guile/geiser/introspection.scm
parent5ee2ae3ccd73f5dfae68db011c581f918eea8751 (diff)
downloadgeiser-chez-1d8477f7cd318b5692e5650901ac5ac9af6f19c6.tar.gz
geiser-chez-1d8477f7cd318b5692e5650901ac5ac9af6f19c6.tar.bz2
Autodoc: try symbol at point first. Some cleanups.
Diffstat (limited to 'scheme/guile/geiser/introspection.scm')
-rw-r--r--scheme/guile/geiser/introspection.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/scheme/guile/geiser/introspection.scm b/scheme/guile/geiser/introspection.scm
index 14cd021..f6bb152 100644
--- a/scheme/guile/geiser/introspection.scm
+++ b/scheme/guile/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)