suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Improve DrRacket .plt installation functionality so that it prints

Browse Source 
out the file it tried to unpack when it fails

original commit: 980e957407e8e3072e7cf241c5cb55fb7ec175bf
This commit is contained in:
Robby Findler 2014-04-06 17:49:22 -05:00
parent 6f0acc4b43
commit c3f913fdef
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/gui-pkgs/gui-lib/mrlib/terminal.rkt
View File

@ -230,7 +230,13 @@
(let/ec k (let/ec k
(parameterize ([current-output-port output-port] (parameterize ([current-output-port output-port]
[current-error-port error-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 [exit-handler
(λ (x) (λ (x)
(unless (equal? x 0) (unless (equal? x 0)