Parallel Build: silence worker breaks

2010-09-10 14:26:00 -06:00 · 2010-09-10 14:26:00 -06:00 · 770b6c82f1
commit 770b6c82f1
parent 1dc555e0af
1 changed files with 5 additions and 0 deletions
--- a/collects/setup/parallel-build-worker.rkt
+++ b/collects/setup/parallel-build-worker.rkt
@ -2,6 +2,11 @@
 (require compiler/cm)
 (require racket/match)

+(define prev-uncaught-exception-handler (uncaught-exception-handler))
+(uncaught-exception-handler (lambda (x)
+  (when (exn:break? x) (exit 1))
+  (prev-uncaught-exception-handler x)))
+
 (let ([cmc (make-caching-managed-compile-zo)]
      [worker-id (read)])
 (let loop ()