From 728e347f291a87e775c69988631e6058c8f47d20 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Thu, 15 Nov 2012 12:32:06 -0800 Subject: [PATCH] Use `error-display-handler` instead of threads for multiple error reporting. Closes PR 13240 (in reality, avoids the bug, but ryanc says that it's too hard to fix). original commit: 30e26f00cdcf9a08f076b03bceb0a9b9255151fa --- collects/typed-racket/utils/tc-utils.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/typed-racket/utils/tc-utils.rkt b/collects/typed-racket/utils/tc-utils.rkt index c74c999d..7acc2095 100644 --- a/collects/typed-racket/utils/tc-utils.rkt +++ b/collects/typed-racket/utils/tc-utils.rkt @@ -93,9 +93,9 @@ don't depend on any other portion of the system [l (let ([stxs (for/list ([e l]) - (sync (thread - (lambda () - (raise-typecheck-error (err-msg e) (err-stx e))))) + (with-handlers ([exn:fail:syntax? + (λ (e) ((error-display-handler) (exn-message e) e))]) + (raise-typecheck-error (err-msg e) (err-stx e))) (err-stx e))]) (reset!) (unless (null? stxs)