From b6827d2d0bffd3f193f7b9e872d675fe88e28063 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 17 Jun 2008 16:06:35 +0000
Subject: [PATCH] Now all module syntax errors kill the repl

svn: r10314
---
 collects/drscheme/private/module-language.ss | 18 ++++++++----------
 1 file changed, 8 insertions(+), 10 deletions(-)

diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.ss
index c1d510cd0b..11a41822b3 100644
--- a/collects/drscheme/private/module-language.ss
+++ b/collects/drscheme/private/module-language.ss
@@ -148,8 +148,7 @@
              (let ([super-result (super-thunk)])
                (if (eof-object? super-result)
                  #`(current-module-declare-name #f)
-                 (raise-syntax-error
-                  '|Module Language|
+                 (hopeless-shout
                   "there can only be one expression in the definitions window"
                   super-result)))]
             [(4)
@@ -436,18 +435,17 @@
 (define (check-filename-matches filename name unexpanded-stx)
   (define datum (syntax-e name))
   (unless (symbol? datum)
-    (raise-syntax-error '|Module Language|
-                        "bad syntax in name position of module"
-                        unexpanded-stx name))
+    (hopeless-shout "bad syntax in name position of module"
+                    unexpanded-stx name))
   (let-values ([(base name dir?) (split-path filename)])
     (let ([expected (string->symbol
                      (path->string (path-replace-suffix name #"")))])
       (unless (equal? expected datum)
-        (raise-syntax-error
-         '|Module Language|
-         (format "module name doesn't match saved filename, got ~s and expected ~a"
-                 datum
-                 expected)
+        (hopeless-shout
+         (format
+          "module name doesn't match saved filename, got ~s and expected ~s"
+          datum
+          expected)
          unexpanded-stx)))))
 
 (define module-language-put-file-mixin