summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-13 20:23:43 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-13 20:23:43 +0100
commitaf1c5a38ba4b352837bcba85142332ec3e46f99a (patch)
tree0193f7297243c78b69ca72b8e1e18b6df7a4d6a4
parent3398bc2d5456701d259dca6c93860d6842194b3c (diff)
downloadgeiser-guile-af1c5a38ba4b352837bcba85142332ec3e46f99a.tar.gz
geiser-guile-af1c5a38ba4b352837bcba85142332ec3e46f99a.tar.bz2
Small improvements.
-rw-r--r--geiser/introspection.scm4
1 files changed, 1 insertions, 3 deletions
diff --git a/geiser/introspection.scm b/geiser/introspection.scm
index 62d3ce5..a158d66 100644
--- a/geiser/introspection.scm
+++ b/geiser/introspection.scm
@@ -37,9 +37,7 @@
(else (loop (car syms) (cdr syms))))))
(define (resolve-symbol sym)
- (and (symbol? sym)
- (module-bound? (current-module) sym)
- (eval sym (current-module))))
+ (module-ref (current-module) sym))
(define (obj-args obj)
(cond ((not obj) #f)