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:
parent
652a0ad0d1
commit
5fd23b18e5
|
@ -7,6 +7,7 @@
|
||||||
"raco")))
|
"raco")))
|
||||||
|
|
||||||
(define tmp (make-temporary-file))
|
(define tmp (make-temporary-file))
|
||||||
|
(define tmp-dir (make-temporary-file "mztmp~a" 'directory))
|
||||||
|
|
||||||
(system* raco
|
(system* raco
|
||||||
"ctool"
|
"ctool"
|
||||||
|
@ -16,4 +17,15 @@
|
||||||
"++lib"
|
"++lib"
|
||||||
"racket")
|
"racket")
|
||||||
|
|
||||||
|
(system* raco
|
||||||
|
"ctool"
|
||||||
|
"--3m"
|
||||||
|
"--c-mods"
|
||||||
|
tmp
|
||||||
|
"++lib"
|
||||||
|
"racket/promise"
|
||||||
|
"--runtime"
|
||||||
|
tmp-dir)
|
||||||
|
|
||||||
(delete-file tmp)
|
(delete-file tmp)
|
||||||
|
(delete-directory/files tmp-dir)
|
||||||
|
|
|
@ -110,6 +110,7 @@
|
||||||
(install-libs lib-dir types
|
(install-libs lib-dir types
|
||||||
#:extras-only? (not executables?)
|
#:extras-only? (not executables?)
|
||||||
#:no-dlls? (and (eq? 'windows (cross-system-type))
|
#:no-dlls? (and (eq? 'windows (cross-system-type))
|
||||||
|
executables?
|
||||||
;; If all executables have "<system>" the the
|
;; If all executables have "<system>" the the
|
||||||
;; DLL dir, then no base DLLS are needed
|
;; DLL dir, then no base DLLS are needed
|
||||||
(for/and ([f (in-list orig-binaries)])
|
(for/and ([f (in-list orig-binaries)])
|
||||||
|
|
Loading…
Reference in New Issue
Block a user