From 9cfc4087722156e3cb53e425b2f81fd118844d14 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Fri, 13 Feb 2009 20:23:43 +0100 Subject: Small improvements. --- scheme/guile/geiser/introspection.scm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'scheme') 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) -- cgit v1.2.3