Another improvement + test

svn: r11116

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)

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)