26 lines
735 B
Scheme
26 lines
735 B
Scheme
#lang scheme/base
|
|
|
|
(require dynext/compile
|
|
(prefix-in xform: "private/xform.ss"))
|
|
|
|
(provide xform)
|
|
|
|
(define (xform quiet? src dest header-dirs #:keep-lines? [keep-lines? #f])
|
|
(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
|
|
keep-lines?
|
|
#f #t #t
|
|
#f #f
|
|
#f #f
|
|
#f)))
|
|
|