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

when there is no rep (eg, only one scheme box) just raise the error

Browse Source 
svn: r10570
This commit is contained in:
Eli Barzilay 2008-07-03 01:41:04 +00:00
parent ecfc0cd104
commit 3aa1a16fa8
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -250,14 +250,15 @@
;; adding `drscheme:init^' to the imports to get
;; `drscheme:init:system-eventspace', or make `queue-system-callback/sync'
;; into a public method (accessible here).
(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)
(when rep
(send rep insert-warning "\n[Interactions disabled]")
(custodian-shutdown-all (send rep get-user-custodian))))
(if (not rep)
(raise exn)
(begin
(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]")
(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|