From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 26 Jan 2019 23:21:51 +0000 (-0800)
Subject: Eliminate simple-top-level-environment.
X-Git-Tag: mit-scheme-pucked-10.1.10~6^2~22
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e2b35aac1e8bddf05b49d7828f05d40ab647f96e;p=mit-scheme.git

Eliminate simple-top-level-environment.

This hasn't worked as intended since the reader was rewritten.
---

diff --git a/src/runtime/global.scm b/src/runtime/global.scm
index 9f6f4f779..ba9a00374 100644
--- a/src/runtime/global.scm
+++ b/src/runtime/global.scm
@@ -285,12 +285,6 @@ USA.
 
 (define (unbind-variable environment name)
   ((ucode-primitive unbind-variable 2) (->environment environment) name))
-
-(define (simple-top-level-environment fold-case?)
-  (make-top-level-environment (list 'param:reader-fold-case?
-				    '*parser-canonicalize-symbols?*)
-			      (list (make-settable-parameter fold-case?)
-				    #!default)))
 
 (define (object-gc-type object)
   (%encode-gc-type ((ucode-primitive object-gc-type 1) object)))
diff --git a/src/runtime/option.scm b/src/runtime/option.scm
index 5fa934ec6..1189d6226 100644
--- a/src/runtime/option.scm
+++ b/src/runtime/option.scm
@@ -50,8 +50,9 @@ USA.
 	  (lambda ()
 	    (parameterize ((*options* '())
 			   (*parent* #f)
-			   (param:suppress-loading-message? #t))
-	      (load pathname (simple-top-level-environment #t))
+			   (param:suppress-loading-message? #t)
+			   (param:reader-fold-case? #t))
+	      (load pathname (make-top-level-environment))
 	      (values (*options*)
 		      (let ((parent (*parent*)))
 			(if (eq? #t parent)
diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 39a6ca4a1..b4272c014 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -631,7 +631,6 @@ USA.
 	  set-ephemeron-key!
 	  set-interrupt-enables!
 	  show-time
-	  simple-top-level-environment
 	  system-hunk3-cons
 	  system-hunk3-cxr0
 	  system-hunk3-cxr1