auto add main include dir in compiler/xform (PR 10155)

svn: r14253
This commit is contained in:
Matthew Flatt 2009-03-24 18:38:42 +00:00
parent 3b49038947
commit 6e80847b18

View File

@ -1,6 +1,7 @@
#lang scheme/base
(require dynext/compile
setup/dirs
(prefix-in xform: "private/xform.ss"))
(provide xform)
@ -11,7 +12,9 @@
(current-extension-preprocess-flags))]
[headers (apply append
(map (current-make-compile-include-strings)
header-dirs))])
(append
header-dirs
(list (find-include-dir)))))])
(xform:xform quiet?
(cons exe
(append flags headers))