From dfacf40a4cf287e234a3c86ed0bb681821f627ee Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 4 Nov 2008 17:11:17 +0000 Subject: [PATCH] PR 9682 svn: r12234 --- collects/drscheme/syncheck.ss | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/collects/drscheme/syncheck.ss b/collects/drscheme/syncheck.ss index 45dd510e6c..c5b64d2686 100644 --- a/collects/drscheme/syncheck.ss +++ b/collects/drscheme/syncheck.ss @@ -1059,6 +1059,7 @@ If the namespace does not, they are colored the unbound color. (ensure-rep-hidden) (let-values ([(expanded-expression expansion-completed) (make-traversal)]) (let* ([definitions-text (get-definitions-text)] + [interactions-text (get-interactions-text)] [drs-eventspace (current-eventspace)] [the-tab (get-current-tab)]) (let-values ([(old-break-thread old-custodian) (send the-tab get-breakables)]) @@ -1119,6 +1120,13 @@ If the namespace does not, they are colored the unbound color. (parameterize ([current-eventspace drs-eventspace]) (queue-callback (λ () ;; =drs= + + ;; a call like this one also happens in + ;; drscheme:debug:error-display-handler/stacktrace + ;; but that call won't happen here, because + ;; the rep is not in the current-rep parameter + (send interactions-text highlight-errors/exn exn) + (show-error-report/tab)))) (drscheme:debug:error-display-handler/stacktrace