diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-08 02:11:55 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-08 02:11:55 +0200 |
| commit | e9b0f1aaa810c15dbdffc4147f2956851c4f1782 (patch) | |
| tree | 17878b6fce5aa24a7415b8a9e41d6c59e86437ed /scheme/racket/geiser/enter.rkt | |
| parent | d402ed3f41790abb9861af9dbe47166295cd66b1 (diff) | |
| download | geiser-chez-e9b0f1aaa810c15dbdffc4147f2956851c4f1782.tar.gz geiser-chez-e9b0f1aaa810c15dbdffc4147f2956851c4f1782.tar.bz2 | |
Racket: square cosmetics.
Diffstat (limited to 'scheme/racket/geiser/enter.rkt')
| -rw-r--r-- | scheme/racket/geiser/enter.rkt | 4 |
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) |