summaryrefslogtreecommitdiff
path: root/scheme/racket/geiser/enter.rkt
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-08 02:11:55 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-08 02:11:55 +0200
commite9b0f1aaa810c15dbdffc4147f2956851c4f1782 (patch)
tree17878b6fce5aa24a7415b8a9e41d6c59e86437ed /scheme/racket/geiser/enter.rkt
parentd402ed3f41790abb9861af9dbe47166295cd66b1 (diff)
downloadgeiser-guile-e9b0f1aaa810c15dbdffc4147f2956851c4f1782.tar.gz
geiser-guile-e9b0f1aaa810c15dbdffc4147f2956851c4f1782.tar.bz2
Racket: square cosmetics.
Diffstat (limited to 'scheme/racket/geiser/enter.rkt')
-rw-r--r--scheme/racket/geiser/enter.rkt4
1 files changed, 2 insertions, 2 deletions
diff --git a/scheme/racket/geiser/enter.rkt b/scheme/racket/geiser/enter.rkt
index 181c06a..9705ec3 100644
--- a/scheme/racket/geiser/enter.rkt
+++ b/scheme/racket/geiser/enter.rkt
@@ -21,8 +21,8 @@
(define loaded (make-hash))
(define (module-loaded? path)
- (with-handlers ((exn? (lambda (_) #f)))
- (let ((rp (module-path-index-resolve (module-path-index-join path #f))))
+ (with-handlers ([exn? (lambda (_) #f)])
+ (let ([rp (module-path-index-resolve (module-path-index-join path #f))])
(hash-has-key? loaded (resolved-module-path-name rp)))))
(define (enter-module mod)