From e2b35aac1e8bddf05b49d7828f05d40ab647f96e Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 26 Jan 2019 15:21:51 -0800 Subject: [PATCH] Eliminate simple-top-level-environment. This hasn't worked as intended since the reader was rewritten. --- src/runtime/global.scm | 6 ------ src/runtime/option.scm | 5 +++-- src/runtime/runtime.pkg | 1 - 3 files changed, 3 insertions(+), 9 deletions(-) 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 -- 2.25.1