Add install-r7rs!, like install-r6rs!

* module/ice-9/boot-9.scm (install-r7rs!): New function.

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 4b25674551a3f437640fa94fb1e5dcbbff8c8727..2b8377639fd21da313ac0201837ebbdf1f51ee74 100644 (file)
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -4556,6 +4556,12 @@ R6RS.  @xref{R6RS Incompatibilities} in the manual."
   (read-enable 'r6rs-hex-escapes)
   (read-enable 'hungry-eol-escapes))
 
+(define (install-r7rs!)
+  "Make changes to the default environment to better conform to the
+R7RS."
+  (install-r6rs!)
+  (read-enable 'r7rs-symbols))
+
 \f
 
 ;;; {Deprecated stuff}