summaryrefslogtreecommitdiff
path: root/scheme/guile
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
commit9cfc4087722156e3cb53e425b2f81fd118844d14 (patch)
tree826d8f25c5f52099f12ef72dbc7003872ec36089 /scheme/guile
parent62d18ab50a048f83d4a67c9f241e6e725fc32528 (diff)
downloadgeiser-chez-9cfc4087722156e3cb53e425b2f81fd118844d14.tar.gz
geiser-chez-9cfc4087722156e3cb53e425b2f81fd118844d14.tar.bz2
Small improvements.
Diffstat (limited to 'scheme/guile')
-rw-r--r--scheme/guile/geiser/introspection.scm4
1 files changed, 1 insertions, 3 deletions
diff --git a/scheme/guile/geiser/introspection.scm b/scheme/guile/geiser/introspection.scm
index 62d3ce5..a158d66 100644
--- a/scheme/guile/geiser/introspection.scm
+++ b/scheme/guile/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)