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

Added defensive checks for rep; no rep available when exception occurs at Check Syntax.

Browse Source 
svn: r10562
This commit is contained in:
Danny Yoo 2008-07-02 18:20:58 +00:00
parent e4c0c9b3b9
commit cc362de329
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -256,8 +256,8 @@
(fprintf (current-error-port) "Module Language: ~a\n" prefix))
((error-display-handler) (exn-message exn) exn)
(when rep
(send rep insert-warning "\n[Interactions disabled]"))
(custodian-shutdown-all (send rep get-user-custodian)))
(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])
(apply raise-syntax-error '|Module Language|