From 4ab2e9c71e51857d418c99c1cb2e5b679932161c Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 14 Feb 2009 22:15:09 +0100 Subject: Autodoc: try symbol at point first. Some cleanups. --- geiser/introspection.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'geiser') 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) -- cgit v1.2.3