~ chicken-r7rs (master) 18b4e36affe30bef0042d7a15b5a4c88560a374a

commit 18b4e36affe30bef0042d7a15b5a4c88560a374a
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Sat May 2 23:40:02 2015 +0000
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sat May 2 23:40:02 2015 +0000

    Preserve read-info-hook on include

diff --git a/r7rs-compile-time.scm b/r7rs-compile-time.scm
index 58d4ff7..b18a51e 100644
--- a/r7rs-compile-time.scm
+++ b/r7rs-compile-time.scm
@@ -85,7 +85,9 @@
 
 (define (read-forms filename ci?)
   (let ((path (##sys#resolve-include-filename filename #t)))
-    (fluid-let ((##sys#include-pathnames
+    (fluid-let ((##sys#default-read-info-hook
+                 (and (feature? 'compiling) ##compiler#read-info-hook))
+                (##sys#include-pathnames
                  (cond ((pathname-directory path) =>
                         (cut cons <> ##sys#include-pathnames))
                        ((current-source-directory) =>