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

macro-debugger: don't shut down expansion on error (TR raises async errors)

Browse Source 
related to PR 12505
This commit is contained in:
Ryan Culpepper 2012-04-23 16:10:12 -06:00
parent 2b34e0a75b
commit 62177bc135
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/macro-debugger/tool.rkt
View File

@ -269,14 +269,8 @@
(set! user-custodian (current-custodian))) (set! user-custodian (current-custodian)))
(define (uncaught-exception-raised) ;; =user= (define (uncaught-exception-raised) ;; =user=
(set! normal-termination? #t) ;; formerly shut down user custodian
(parameterize ([current-eventspace drs-eventspace]) (void))
(queue-callback
(λ () ;; =drs=
(yield error-display-semaphore) ;; let error display go first
(send the-tab syncheck:clear-highlighting)
(cleanup)
(custodian-shutdown-all user-custodian)))))
(define (show-error-report/tab) ;; =drs= (define (show-error-report/tab) ;; =drs=
(send the-tab turn-on-error-report) (send the-tab turn-on-error-report)
(send (send the-tab get-error-report-text) scroll-to-position 0) (send (send the-tab get-error-report-text) scroll-to-position 0)