From c3f913fdef45fd6f9cdec2edd15fa114ebf76419 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 6 Apr 2014 17:49:22 -0500 Subject: [PATCH] Improve DrRacket .plt installation functionality so that it prints out the file it tried to unpack when it fails original commit: 980e957407e8e3072e7cf241c5cb55fb7ec175bf --- pkgs/gui-pkgs/gui-lib/mrlib/terminal.rkt | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/pkgs/gui-pkgs/gui-lib/mrlib/terminal.rkt b/pkgs/gui-pkgs/gui-lib/mrlib/terminal.rkt index eb050405..89fdbc48 100644 --- a/pkgs/gui-pkgs/gui-lib/mrlib/terminal.rkt +++ b/pkgs/gui-pkgs/gui-lib/mrlib/terminal.rkt @@ -230,7 +230,13 @@ (let/ec k (parameterize ([current-output-port output-port] [current-error-port error-port] - [error-escape-handler (λ () (k (void)))] + [error-escape-handler + (let ([oh (error-escape-handler)] + [ct (current-thread)]) + (λ () + (if (equal? (current-thread) ct) + (k (void)) + (oh))))] [exit-handler (λ (x) (unless (equal? x 0)