~ chicken-r7rs (master) e273d04740127007da4e713f262aa2f0761ce638

commit e273d04740127007da4e713f262aa2f0761ce638
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Fri Jul 24 12:28:18 2015 +1200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Tue Apr 5 21:20:58 2016 +1200

    Fix up read-info-hook in include module namespace
    
    Now that this procedure is hidden behind a compiler module we have to
    fetch it manually through its symbol.

diff --git a/r7rs-compile-time.scm b/r7rs-compile-time.scm
index b18a51e..b1e7c3f 100644
--- a/r7rs-compile-time.scm
+++ b/r7rs-compile-time.scm
@@ -86,7 +86,10 @@
 (define (read-forms filename ci?)
   (let ((path (##sys#resolve-include-filename filename #t)))
     (fluid-let ((##sys#default-read-info-hook
-                 (and (feature? 'compiling) ##compiler#read-info-hook))
+                 (let ((name 'chicken.compiler.support#read-info-hook))
+                   (and (feature? 'compiling)
+                        (##sys#symbol-has-toplevel-binding? name)
+                        (##sys#slot name 0))))
                 (##sys#include-pathnames
                  (cond ((pathname-directory path) =>
                         (cut cons <> ##sys#include-pathnames))