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 ;; adding `drscheme:init^' to the imports to get
;; `drscheme:init:system-eventspace', or make `queue-system-callback/sync' ;; `drscheme:init:system-eventspace', or make `queue-system-callback/sync'
;; into a public method (accessible here). ;; into a public method (accessible here).
(when rep (if (not rep)
(send rep set-show-no-user-evaluation-message? #f)) (raise exn)
(when prefix (begin
(fprintf (current-error-port) "Module Language: ~a\n" prefix)) (send rep set-show-no-user-evaluation-message? #f)
((error-display-handler) (exn-message exn) exn) (when prefix
(when rep (fprintf (current-error-port) "Module Language: ~a\n" prefix))
(send rep insert-warning "\n[Interactions disabled]") ((error-display-handler) (exn-message exn) exn)
(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) (define (raise-hopeless-syntax-error . error-args)
(with-handlers ([exn? raise-hopeless-exception]) (with-handlers ([exn? raise-hopeless-exception])
(apply raise-syntax-error '|Module Language| (apply raise-syntax-error '|Module Language|