diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-14 22:15:09 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-14 22:15:09 +0100 |
| commit | 1d8477f7cd318b5692e5650901ac5ac9af6f19c6 (patch) | |
| tree | 240e634b76df74767c5ca641e59413856821fd30 /scheme | |
| parent | 5ee2ae3ccd73f5dfae68db011c581f918eea8751 (diff) | |
| download | geiser-guile-1d8477f7cd318b5692e5650901ac5ac9af6f19c6.tar.gz geiser-guile-1d8477f7cd318b5692e5650901ac5ac9af6f19c6.tar.bz2 | |
Autodoc: try symbol at point first. Some cleanups.
Diffstat (limited to 'scheme')
| -rw-r--r-- | scheme/guile/geiser/introspection.scm | 4 |
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) |