From c9e84f9f672f56ddb6b837483b359af2f4879a08 Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Tue, 6 Jul 2010 10:01:29 -0600
Subject: [PATCH] [Parallel-Build] remove -u, -j 1 is uniprocessor,
 SETUP_OPTIONTS => PLT_SETUP_OPTIONS

---
 collects/setup/option-sig.rkt    | 1 -
 collects/setup/option-unit.rkt   | 3 +--
 collects/setup/setup-cmdline.rkt | 3 ---
 collects/setup/setup-unit.rkt    | 6 +++---
 src/Makefile.in                  | 2 +-
 5 files changed, 5 insertions(+), 10 deletions(-)

diff --git a/collects/setup/option-sig.rkt b/collects/setup/option-sig.rkt
index cad8bedaa7..00e9f426bd 100644
--- a/collects/setup/option-sig.rkt
+++ b/collects/setup/option-sig.rkt
@@ -21,7 +21,6 @@
      call-install
      call-post-install
      pause-on-errors
-     parallel-build
      parallel-workers
      force-unpacks
      doc-pdf-dest
diff --git a/collects/setup/option-unit.rkt b/collects/setup/option-unit.rkt
index 3bc83ca76a..6fe9959d04 100644
--- a/collects/setup/option-unit.rkt
+++ b/collects/setup/option-unit.rkt
@@ -27,8 +27,7 @@
 
   (define setup-program-name (make-parameter "setup-plt"))
 
-  (define-flag-param parallel-build #t)
-  (define-flag-param parallel-workers (processor-count))
+  (define-flag-param parallel-workers (min (processor-count) 8))
   (define-flag-param verbose #f)
   (define-flag-param make-verbose #f)
   (define-flag-param compiler-verbose #f)
diff --git a/collects/setup/setup-cmdline.rkt b/collects/setup/setup-cmdline.rkt
index 180ae58b86..b141b66068 100644
--- a/collects/setup/setup-cmdline.rkt
+++ b/collects/setup/setup-cmdline.rkt
@@ -39,10 +39,7 @@
                    (call-install #f)
                    (make-launchers #f)
                    (make-info-domain #f)
-                   (parallel-build #f)
                    (make-docs #f)))]
-     [("-u" "--no-parallel-build") "Do not use parallel build"
-      (add-flags '((parallel-build #f)))]
      [("-j" "--workers") workers "Use <#> parallel-workers"
       (add-flags `((parallel-workers ,(string->number workers))))]
      [("-n" "--no-zo") "Do not produce .zo files"
diff --git a/collects/setup/setup-unit.rkt b/collects/setup/setup-unit.rkt
index 3336ee1f32..bd12555ece 100644
--- a/collects/setup/setup-unit.rkt
+++ b/collects/setup/setup-unit.rkt
@@ -658,8 +658,8 @@
     (define (move-drscheme-to-end cct)
       (call-with-values (lambda () (partition (lambda (x) (not (string=? (cc-name (car x)) "drscheme"))) cct)) append))
     (setup-printf #f "--- compiling collections ---")
-    (match (parallel-build)
-      [#t
+    (match (parallel-workers)
+      [(? (lambda (x) (x . > . 1)))
         (compile-cc (collection->cc (list (string->path "racket"))) 0)
         (managed-compile-zo (build-path main-collects-dir  "setup/parallel-build-worker.rkt"))
         (with-specified-mode
@@ -671,7 +671,7 @@
             (parallel-compile (parallel-workers) setup-fprintf cct))
           (for/fold ([gcs 0]) ([cc planet-dirs-to-compile])
             (compile-cc cc gcs)))]
-      [#f
+      [else
         (with-specified-mode
           (for/fold ([gcs 0]) ([cc ccs-to-compile])
             (compile-cc cc gcs)))]))
diff --git a/src/Makefile.in b/src/Makefile.in
index 92bd076046..c17859d26a 100644
--- a/src/Makefile.in
+++ b/src/Makefile.in
@@ -54,7 +54,7 @@ both:
 
 # Install (common) ----------------------------------------
 
-SETUP_ARGS = -X "$(DESTDIR)$(collectsdir)" -N "raco setup" -l- setup $(SETUP_OPTIONS) @INSTALL_SETUP_FLAGS@
+SETUP_ARGS = -X "$(DESTDIR)$(collectsdir)" -N "raco setup" -l- setup $(PLT_SETUP_OPTIONS) $(PLT_ISO) @INSTALL_SETUP_FLAGS@
 
 install:
 	$(MAKE) install-@MAIN_VARIANT@