repair no-executables assemble-distribution on Windows

Repairs a problem with `raco c-tool --c-mods <file> --runtime <dir>`
as reported by Dmitry Pavlov.
This commit is contained in:
Matthew Flatt 2018-07-16 15:53:38 -06:00
parent 652a0ad0d1
commit 5fd23b18e5
2 changed files with 13 additions and 0 deletions

View File

@ -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)

View File

@ -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)])