From 770b6c82f17f341015243e06bb9e0f849ca40295 Mon Sep 17 00:00:00 2001 From: Kevin Tew Date: Fri, 10 Sep 2010 14:26:00 -0600 Subject: [PATCH] Parallel Build: silence worker breaks --- collects/setup/parallel-build-worker.rkt | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/collects/setup/parallel-build-worker.rkt b/collects/setup/parallel-build-worker.rkt index 001b24d514..029685275d 100644 --- 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 ()