From a883b94eaf23ba291c3a8481440358c572a67f0b Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Wed, 6 May 2009 21:29:52 +0200 Subject: Small refactoring. --- scheme/plt/geiser/modules.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'scheme') diff --git a/scheme/plt/geiser/modules.ss b/scheme/plt/geiser/modules.ss index 3bed19e..9ccb421 100644 --- a/scheme/plt/geiser/modules.ss +++ b/scheme/plt/geiser/modules.ss @@ -63,7 +63,7 @@ (define (module-spec->path-name spec) (with-handlers ((exn? (lambda (_) #f))) (let ((ns (module->namespace (ensure-module-spec spec)))) - (namespace->module-path-name (eval '(current-namespace) ns))))) + (namespace->module-path-name ns)))) (define (module-path-name->name path) (cond ((path? path) -- cgit v1.2.3