Added defensive checks for rep; no rep available when exception occurs at Check Syntax.
svn: r10561
This commit is contained in:
parent
af6f4f561b
commit
e4c0c9b3b9
|
@ -250,11 +250,13 @@
|
|||
;; adding `drscheme:init^' to the imports to get
|
||||
;; `drscheme:init:system-eventspace', or make `queue-system-callback/sync'
|
||||
;; into a public method (accessible here).
|
||||
(send rep set-show-no-user-evaluation-message? #f)
|
||||
(when rep
|
||||
(send rep set-show-no-user-evaluation-message? #f))
|
||||
(when prefix
|
||||
(fprintf (current-error-port) "Module Language: ~a\n" prefix))
|
||||
((error-display-handler) (exn-message exn) exn)
|
||||
(send rep insert-warning "\n[Interactions disabled]")
|
||||
(when rep
|
||||
(send rep insert-warning "\n[Interactions disabled]"))
|
||||
(custodian-shutdown-all (send rep get-user-custodian)))
|
||||
(define (raise-hopeless-syntax-error . error-args)
|
||||
(with-handlers ([exn? raise-hopeless-exception])
|
||||
|
|
Loading…
Reference in New Issue
Block a user