~ chicken-r7rs (master) d39e1aae1212f3c5b1e3e2eacfd88c42bf1458e5

commit d39e1aae1212f3c5b1e3e2eacfd88c42bf1458e5
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Sun May 3 00:58:49 2015 +0000
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sun May 3 00:58:49 2015 +0000

    Register csi read hook on load

diff --git a/scheme.read.scm b/scheme.read.scm
index ba56b86..56d9de3 100644
--- a/scheme.read.scm
+++ b/scheme.read.scm
@@ -1,6 +1,6 @@
 (module scheme.read (read)
   (import (except scheme read)
-	  (only chicken : current-read-table fx+ fx= optional unless when)
+	  (only chicken : current-read-table feature? fx+ fx= optional unless when)
 	  (only chicken case-sensitive define-constant define-inline parameterize))
 
   ;;;
@@ -37,6 +37,11 @@
 			  (else (case-sensitive)))))
 	  (read port hook)))))
 
+  (when (feature? 'csi)
+    (set! ##sys#repl-read-hook
+      (lambda (#!optional (p (current-input-port)))
+        (read p))))
+
   ;;;
   ;;; 6.13.2 Input
   ;;;