From 5fd23b18e56cc62ad88a698711e1f085afaa1f14 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 16 Jul 2018 15:53:38 -0600
Subject: [PATCH] repair no-executables `assemble-distribution` on Windows

Repairs a problem with `raco c-tool --c-mods <file> --runtime <dir>`
as reported by Dmitry Pavlov.
---
 pkgs/compiler-test/tests/compiler/ctool.rkt | 12 ++++++++++++
 racket/collects/compiler/distribute.rkt     |  1 +
 2 files changed, 13 insertions(+)

diff --git a/pkgs/compiler-test/tests/compiler/ctool.rkt b/pkgs/compiler-test/tests/compiler/ctool.rkt
index 32c2e36907..f94c1ba03c 100644
--- a/pkgs/compiler-test/tests/compiler/ctool.rkt
+++ b/pkgs/compiler-test/tests/compiler/ctool.rkt
@@ -7,6 +7,7 @@
                              "raco")))
 
 (define tmp (make-temporary-file))
+(define tmp-dir (make-temporary-file "mztmp~a" 'directory))
 
 (system* raco
          "ctool"
@@ -16,4 +17,15 @@
          "++lib"
          "racket")
 
+(system* raco
+         "ctool"
+         "--3m"
+         "--c-mods"
+         tmp
+         "++lib"
+         "racket/promise"
+         "--runtime"
+         tmp-dir)
+
 (delete-file tmp)
+(delete-directory/files tmp-dir)
diff --git a/racket/collects/compiler/distribute.rkt b/racket/collects/compiler/distribute.rkt
index cbe5ebf262..8d43200890 100644
--- a/racket/collects/compiler/distribute.rkt
+++ b/racket/collects/compiler/distribute.rkt
@@ -110,6 +110,7 @@
         (install-libs lib-dir types
 		      #:extras-only? (not executables?)
 		      #:no-dlls? (and (eq? 'windows (cross-system-type))
+				      executables?
 				      ;; If all executables have "<system>" the the
 				      ;; DLL dir, then no base DLLS are needed
 				      (for/and ([f (in-list orig-binaries)])