From 3ae6db6f6560e166362b9dada4c7b5acc47be4a5 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Thu, 7 Aug 2008 00:38:36 +0000
Subject: [PATCH] Another improvement + test

svn: r11116
---
 collects/drscheme/private/module-language.ss | 5 +++--
 collects/tests/drscheme/module-lang-test.ss  | 9 +++++++++
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.ss
index d4c84f4a0d..b0ffa5610d 100644
--- a/collects/drscheme/private/module-language.ss
+++ b/collects/drscheme/private/module-language.ss
@@ -196,8 +196,9 @@
           (current-module-declare-name #f)
           ;; syntax error => try to require the language to get a working repl
           (with-handlers ([void (λ (e)
-                                  (raise-hopeless-exception
-                                   e "invalid language specification"))])
+                                  (raise-hopeless-syntax-error
+                                   "invalid language specification"
+                                   lang))])
             (namespace-require lang))
           (check-interactive-language))
         (define (*init)
diff --git a/collects/tests/drscheme/module-lang-test.ss b/collects/tests/drscheme/module-lang-test.ss
index 9ec6282123..3e2509f0f3 100644
--- a/collects/tests/drscheme/module-lang-test.ss
+++ b/collects/tests/drscheme/module-lang-test.ss
@@ -199,3 +199,12 @@
           Module Language: invalid language \(no #%top-interaction binding\)
           Interactions disabled}
       #t)
+(test @t{(module xx (file "@in-here{this-file-does-not-exist}")
+           (define x 1)
+           (* x 123))}
+      #f
+      @rx{cannot open input file
+          No such file or directory
+          Module Language: invalid language specification
+          Interactions disabled}
+      #t)