From c6e34673eef8f0c2fddf880eda9573b121d7e469 Mon Sep 17 00:00:00 2001
From: Eric Dobson <eric.n.dobson@gmail.com>
Date: Mon, 13 Jan 2014 00:04:08 -0800
Subject: [PATCH] Make parallel compile not call exit.

Closes PR 13373.

original commit: f0ebfee9ac71d1cb141400cc77295bf5a6a1dfbc
---
 .../compiler-lib/compiler/commands/make.rkt   | 33 ++++++++++---------
 1 file changed, 17 insertions(+), 16 deletions(-)

diff --git a/pkgs/compiler-pkgs/compiler-lib/compiler/commands/make.rkt b/pkgs/compiler-pkgs/compiler-lib/compiler/commands/make.rkt
index 74fd5ff6ce..a0f67f1e5d 100644
--- a/pkgs/compiler-pkgs/compiler-lib/compiler/commands/make.rkt
+++ b/pkgs/compiler-pkgs/compiler-lib/compiler/commands/make.rkt
@@ -98,19 +98,20 @@
                         dest)))))))]
   ;; Parallel make:
   [else 
-   (parallel-compile-files 
-    source-files
-    #:worker-count (worker-count)
-    #:handler (lambda (type work msg out err)
-                (match type
-                  ['done (when (verbose) (printf " Made ~a\n" work))]
-                  ['output (printf " Output from: ~a\n~a~a" work out err)]
-                  [else (printf " Error compiling ~a\n~a\n~a~a" work msg out err)]))
-    #:options (let ([cons-if-true (lambda (bool carv cdrv)
-                                    (if bool
-                                        (cons carv cdrv)
-                                        cdrv))])
-                (cons-if-true 
-                 (very-verbose) 
-                 'very-verbose
-                 (cons-if-true (disable-inlining) 'disable-inlining null))))])
+   (or (parallel-compile-files
+        source-files
+        #:worker-count (worker-count)
+        #:handler (lambda (type work msg out err)
+                    (match type
+                      ['done (when (verbose) (printf " Made ~a\n" work))]
+                      ['output (printf " Output from: ~a\n~a~a" work out err)]
+                      [else (printf " Error compiling ~a\n~a\n~a~a" work msg out err)]))
+        #:options (let ([cons-if-true (lambda (bool carv cdrv)
+                                        (if bool
+                                            (cons carv cdrv)
+                                            cdrv))])
+                    (cons-if-true
+                     (very-verbose)
+                     'very-verbose
+                     (cons-if-true (disable-inlining) 'disable-inlining null))))
+       (exit 1))])