From fb027536f4272831b21d226e32b12ea055a61723 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Mon, 30 Jun 2008 01:48:23 +0000
Subject: [PATCH] a little more readable code layout

svn: r10513
---
 collects/drscheme/private/module-language.ss | 38 ++++++++++----------
 1 file changed, 18 insertions(+), 20 deletions(-)

diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.ss
index 09b96e2a1c..cbd5433179 100644
--- a/collects/drscheme/private/module-language.ss
+++ b/collects/drscheme/private/module-language.ss
@@ -428,26 +428,24 @@
       (raise-hopeless-syntax-error "bad syntax in name position of module"
                                    stx name))
     (when filename (check-filename-matches filename name* stx))
-    (values
-     name
-     ;; rewrite the module to use the scheme/base version of `module'
-     (let* ([mod  (datum->syntax #'here 'module mod)]
-            [expr (datum->syntax stx `(,mod ,name ,lang . ,body) stx)])
-       (define (only-language exn)
-         (let* ([lang-only (datum->syntax stx `(,mod ,name ,lang) stx)]
-                [lang-only (with-handlers ([void (λ (e) #f)])
-                             (expand lang-only))])
-           (if lang-only
-             (let ([rep (drscheme:rep:current-rep)])
-               ((error-display-handler) (exn-message exn) exn)
-               ;; probably best to not say anything here
-               ;; (send rep insert-warning "Definitions not in effect")
-               lang-only)
-             (raise-hopeless-exception exn "invalid language specification"))))
-       ;; Expand the module expression, so we can catch an syntax errors and
-       ;; provide a repl with the base language in that case.
-       (with-handlers ([exn? only-language])
-         (expand expr)))))
+    (let* (;; rewrite the module to use the scheme/base version of `module'
+           [mod  (datum->syntax #'here 'module mod)]
+           [expr (datum->syntax stx `(,mod ,name ,lang . ,body) stx)])
+      (define (only-language exn)
+        (let* ([lang-only (datum->syntax stx `(,mod ,name ,lang) stx)]
+               [lang-only (with-handlers ([void (λ (e) #f)])
+                            (expand lang-only))])
+          (if lang-only
+            (let ([rep (drscheme:rep:current-rep)])
+              ((error-display-handler) (exn-message exn) exn)
+              ;; probably best to not say anything here
+              ;; (send rep insert-warning "Definitions not in effect")
+              lang-only)
+            (raise-hopeless-exception exn "invalid language specification"))))
+      ;; Expand the module expression, so we can catch an syntax errors and
+      ;; provide a repl with the base language in that case.
+      (define expr* (with-handlers ([exn? only-language]) (expand expr)))
+      (values name expr*)))
   
   ;; get-filename : port -> (union string #f)
   ;; extracts the file the definitions window is being saved in, if any.