suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Another improvement + test

Browse Source 
svn: r11116
This commit is contained in:
Eli Barzilay 2008-08-07 00:38:36 +00:00
parent 78170587c2
commit 3ae6db6f65
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/drscheme/private/module-language.ss
View File

@ -196,8 +196,9 @@
(current-module-declare-name #f) (current-module-declare-name #f)
;; syntax error => try to require the language to get a working repl ;; syntax error => try to require the language to get a working repl
(with-handlers ([void (λ (e) (with-handlers ([void (λ (e)
(raise-hopeless-exception (raise-hopeless-syntax-error
e "invalid language specification"))]) "invalid language specification"
lang))])
(namespace-require lang)) (namespace-require lang))
(check-interactive-language)) (check-interactive-language))
(define (*init) (define (*init)

9
collects/tests/drscheme/module-lang-test.ss
View File

@ -199,3 +199,12 @@
Module Language: invalid language \(no #%top-interaction binding\) Module Language: invalid language \(no #%top-interaction binding\)
Interactions disabled} Interactions disabled}
#t) #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)