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 9f6f4f779cfe53f44ebfd7b632b48b69acecf06e..ba9a00374dbbff9f5ccd4df9759b08a579de61e6 100644 (file)
--- 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)))
 \f
 (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 5fa934ec6c7e93e0dd95209325ca68a981efde43..1189d622683983358e1278f7ecebc66fecb04714 100644 (file)
--- 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 39a6ca4a13de6b7a43bc7e3f54364d34133263ff..b4272c01428e457bf672847297e9ac8273bcf032 100644 (file)
--- 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