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

Announce no interactions, kill repl on malformed module expression too

Browse Source 
svn: r10313
This commit is contained in:
Eli Barzilay 2008-06-17 15:53:09 +00:00
parent 45bdf4e76d
commit 8e4e964a65
1 changed files with 18 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -216,16 +216,22 @@
[language-numbers (list -32768)])))
(define hopeless-repl (make-thread-cell #t))
(define (hopeless-shout)
(define (hopeless-shout . error-args)
(let ([t (current-thread)])
(queue-callback (λ () (kill-thread t)))
(raise-syntax-error '|Module Language|
(string-append "There must be a module in the\n"
"definitions window. Try starting your program with\n"
"\n"
" #lang scheme\n"
"\n"
"and clicking ‘Run’."))))
(queue-callback
(λ ()
(fprintf (current-error-port) "\n(Further interactions disabled.)\n")
(kill-thread t)))
(apply raise-syntax-error '|Module Language|
(if (null? error-args)
(list (string-append
"There must be a module in the\n"
"definitions window. Try starting your program with\n"
"\n"
" #lang scheme\n"
"\n"
"and clicking ‘Run’."))
error-args))))
;; module-language-config-panel : panel -> (case-> (-> settings) (settings -> void))
(define (module-language-config-panel parent)
@ -399,12 +405,12 @@
;; rewrite the module to use the scheme/base version of `module'
(let ([module (datum->syntax #'here 'module #'form)])
(datum->syntax stx `(,module ,#'name ,#'lang . ,#'rest) stx))))]
[else (raise-syntax-error
'|Module Language|
[else (hopeless-shout
(string-append "only a module expression is allowed, either\n"
" #lang <language-name>\n or\n"
" (module <name> <language> ...)\n")
stx)]))
stx)
]))
;; get-filename : port -> (union string #f)
;; extracts the file the definitions window is being saved in, if any.