24 lines
519 B
Scheme
24 lines
519 B
Scheme
|
|
(module xform mzscheme
|
|
(require dynext/compile
|
|
(prefix xform: "private/xform.ss"))
|
|
|
|
(provide xform)
|
|
|
|
(define (xform quiet? src dest header-dirs)
|
|
(let ([exe (current-extension-compiler)]
|
|
[flags (expand-for-compile-variant
|
|
(current-extension-preprocess-flags))]
|
|
[headers (apply append
|
|
(map (current-make-compile-include-strings)
|
|
header-dirs))])
|
|
(xform:xform quiet?
|
|
(cons exe
|
|
(append flags headers))
|
|
src
|
|
dest
|
|
#f #t #t
|
|
#f #f
|
|
#f #f
|
|
#f))))
|