suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
svn: r14253
This commit is contained in:
Matthew Flatt 2009-03-24 18:38:42 +00:00
parent 3b49038947
commit 6e80847b18
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/compiler/xform.ss
View File

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