diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-24 20:32:38 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-24 20:32:38 +0200 |
| commit | 48099d99f38b67667e680263a65a84990b741078 (patch) | |
| tree | b61e7273abf2adfc09b915eac3190ed8f939a769 | |
| parent | 1036c4ca03505436221ab5bace389c8ad000b867 (diff) | |
| download | geiser-guile-48099d99f38b67667e680263a65a84990b741078.tar.gz geiser-guile-48099d99f38b67667e680263a65a84990b741078.tar.bz2 | |
Small nit.
| -rw-r--r-- | scheme/plt/geiser/modules.ss | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scheme/plt/geiser/modules.ss b/scheme/plt/geiser/modules.ss index 5819bc4..1b03d1a 100644 --- a/scheme/plt/geiser/modules.ss +++ b/scheme/plt/geiser/modules.ss @@ -31,8 +31,6 @@ (require srfi/13 scheme/enter) -(define nowhere (open-output-nowhere)) - (define (ensure-module-spec spec) (cond ((symbol? spec) spec) ((not (string? spec)) #f) @@ -55,6 +53,8 @@ (module->namespace spec)) (current-namespace)))) +(define nowhere (open-output-nowhere)) + (define (load-module spec . port) (parameterize ((current-error-port (if (null? port) nowhere (car port)))) (eval #`(enter! #,(ensure-module-spec spec))))) @@ -67,7 +67,7 @@ (define (module-spec->path-name spec) (with-handlers ((exn? (lambda (_) #f))) - (let ((ns (module->namespace (ensure-module-spec spec)))) + (let ((ns (module-spec->namespace (ensure-module-spec spec)))) (namespace->module-path-name ns)))) (define (module-path-name->name path) |