diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-06 21:29:52 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-06 21:29:52 +0200 |
| commit | a883b94eaf23ba291c3a8481440358c572a67f0b (patch) | |
| tree | aa7deaaaa74dc4a6d38c2e6304465bc22d0221a8 /scheme/plt/geiser/modules.ss | |
| parent | 4d9ac1be1f1c5357c2f590e24ec8ef97ebb01e27 (diff) | |
| download | geiser-guile-a883b94eaf23ba291c3a8481440358c572a67f0b.tar.gz geiser-guile-a883b94eaf23ba291c3a8481440358c572a67f0b.tar.bz2 | |
Small refactoring.
Diffstat (limited to 'scheme/plt/geiser/modules.ss')
| -rw-r--r-- | scheme/plt/geiser/modules.ss | 2 |
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) |