5fd23b18e5
Repairs a problem with `raco c-tool --c-mods <file> --runtime <dir>` as reported by Dmitry Pavlov.
32 lines
648 B
Racket
32 lines
648 B
Racket
#lang racket
|
|
(require setup/dirs)
|
|
|
|
(define raco (build-path (find-console-bin-dir)
|
|
(if (eq? (system-type) 'windows)
|
|
"raco.exe"
|
|
"raco")))
|
|
|
|
(define tmp (make-temporary-file))
|
|
(define tmp-dir (make-temporary-file "mztmp~a" 'directory))
|
|
|
|
(system* raco
|
|
"ctool"
|
|
"--3m"
|
|
"--c-mods"
|
|
tmp
|
|
"++lib"
|
|
"racket")
|
|
|
|
(system* raco
|
|
"ctool"
|
|
"--3m"
|
|
"--c-mods"
|
|
tmp
|
|
"++lib"
|
|
"racket/promise"
|
|
"--runtime"
|
|
tmp-dir)
|
|
|
|
(delete-file tmp)
|
|
(delete-directory/files tmp-dir)
|