macro-debugger: don't shut down expansion on error (TR raises async errors)
related to PR 12505
This commit is contained in:
parent
2b34e0a75b
commit
62177bc135
|
@ -269,14 +269,8 @@
|
|||
(set! user-custodian (current-custodian)))
|
||||
|
||||
(define (uncaught-exception-raised) ;; =user=
|
||||
(set! normal-termination? #t)
|
||||
(parameterize ([current-eventspace drs-eventspace])
|
||||
(queue-callback
|
||||
(λ () ;; =drs=
|
||||
(yield error-display-semaphore) ;; let error display go first
|
||||
(send the-tab syncheck:clear-highlighting)
|
||||
(cleanup)
|
||||
(custodian-shutdown-all user-custodian)))))
|
||||
;; formerly shut down user custodian
|
||||
(void))
|
||||
(define (show-error-report/tab) ;; =drs=
|
||||
(send the-tab turn-on-error-report)
|
||||
(send (send the-tab get-error-report-text) scroll-to-position 0)
|
||||
|
|
Loading…
Reference in New Issue
Block a user