diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-13 20:23:43 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-13 20:23:43 +0100 |
| commit | 9cfc4087722156e3cb53e425b2f81fd118844d14 (patch) | |
| tree | 826d8f25c5f52099f12ef72dbc7003872ec36089 /scheme/guile/geiser/introspection.scm | |
| parent | 62d18ab50a048f83d4a67c9f241e6e725fc32528 (diff) | |
| download | geiser-guile-9cfc4087722156e3cb53e425b2f81fd118844d14.tar.gz geiser-guile-9cfc4087722156e3cb53e425b2f81fd118844d14.tar.bz2 | |
Small improvements.
Diffstat (limited to 'scheme/guile/geiser/introspection.scm')
| -rw-r--r-- | scheme/guile/geiser/introspection.scm | 4 |
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) |