From e9b0f1aaa810c15dbdffc4147f2956851c4f1782 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Tue, 8 Jun 2010 02:11:55 +0200 Subject: Racket: square cosmetics. --- scheme/racket/geiser/enter.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'scheme/racket/geiser/enter.rkt') 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) -- cgit v1.2.3