summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-06 21:29:52 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-06 21:29:52 +0200
commita883b94eaf23ba291c3a8481440358c572a67f0b (patch)
treeaa7deaaaa74dc4a6d38c2e6304465bc22d0221a8
parent4d9ac1be1f1c5357c2f590e24ec8ef97ebb01e27 (diff)
downloadgeiser-chez-a883b94eaf23ba291c3a8481440358c572a67f0b.tar.gz
geiser-chez-a883b94eaf23ba291c3a8481440358c572a67f0b.tar.bz2
Small refactoring.
-rw-r--r--scheme/plt/geiser/modules.ss2
1 files changed, 1 insertions, 1 deletions
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)