[Guile-commits] 02/08: Add install-r7rs!, like install-r6rs!

[Andy Wingo]

wingo pushed a commit to branch wip-r7rs
in repository guile.

commit 614f0ab75f90b5d0afad08388f6a712917e28a17
Author: Andy Wingo <address@hidden>
Date:   Sat Nov 16 14:32:51 2019 +0100

    Add install-r7rs!, like install-r6rs!
    
    * module/ice-9/boot-9.scm (install-r7rs!): New function.
---
 module/ice-9/boot-9.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 4b25674..2b83776 100644
--- 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))
+
 
 
 ;;; {Deprecated stuff}