~ chicken-r7rs (master) ccf2d8c7f91b26c5e004df29265298fe0b4281bd

commit ccf2d8c7f91b26c5e004df29265298fe0b4281bd
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Thu Sep 25 06:21:51 2014 +0000
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Thu Sep 25 06:21:51 2014 +0000

    Override csi's writer with r7rs's when scheme.write is loaded

diff --git a/scheme.write.scm b/scheme.write.scm
index 5f7d12b..6aac5f9 100644
--- a/scheme.write.scm
+++ b/scheme.write.scm
@@ -3,7 +3,13 @@
 		      write-shared
 		      write-simple)
   (import (rename scheme (display display-simple) (write write-simple))
-	  (only chicken : foldl fx+ fx= fx<= optional when))
+	  (only chicken : feature? foldl fx+ fx= fx<= optional when))
+
+  (when (feature? 'csi)
+    (set! ##sys#repl-print-hook
+      (lambda (o p)
+        (display o p)
+        (newline))))
 
   (define (interesting? o)
     (or (pair? o)