From: Andy Wingo <wingo@pobox.com>
Date: Sat, 16 Nov 2019 13:32:51 +0000 (+0100)
Subject: Add install-r7rs!, like install-r6rs!
X-Git-Tag: v2.9.5~11
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=614f0ab75f90b5d0afad08388f6a712917e28a17;p=platform%2Fupstream%2Fguile.git

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 4b2567455..2b8377639 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}