summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-24 20:32:38 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-24 20:32:38 +0200
commit48099d99f38b67667e680263a65a84990b741078 (patch)
treeb61e7273abf2adfc09b915eac3190ed8f939a769 /scheme
parent1036c4ca03505436221ab5bace389c8ad000b867 (diff)
downloadgeiser-guile-48099d99f38b67667e680263a65a84990b741078.tar.gz
geiser-guile-48099d99f38b67667e680263a65a84990b741078.tar.bz2
Small nit.
Diffstat (limited to 'scheme')
-rw-r--r--scheme/plt/geiser/modules.ss6
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)