From 6e80847b1884a1dc5f63263c78bea0e2694dc220 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 24 Mar 2009 18:38:42 +0000
Subject: [PATCH] auto add main include dir in compiler/xform (PR 10155)

svn: r14253
---
 collects/compiler/xform.ss | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/collects/compiler/xform.ss b/collects/compiler/xform.ss
index 8907315faa..451ab30159 100644
--- a/collects/compiler/xform.ss
+++ b/collects/compiler/xform.ss
@@ -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))