Improve DrRacket .plt installation functionality so that it prints

out the file it tried to unpack when it fails original commit: 980e957407e8e3072e7cf241c5cb55fb7ec175bf
2014-04-06 17:49:22 -05:00 · 2014-04-06 17:49:22 -05:00 · c3f913fdef
commit c3f913fdef
parent 6f0acc4b43
1 changed files with 7 additions and 1 deletions
--- 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)