From 018198d5726a4872728b9dffdc58a5037666d109 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sun, 21 May 1989 17:17:56 +0000 Subject: [PATCH] Allow for the possibility of purifying the bcon file, although it is currently turned off for space reasons. --- v7/src/runtime/make.scm | 6 ++++-- v8/src/runtime/make.scm | 6 ++++-- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/make.scm b/v7/src/runtime/make.scm index 77d31e6aa..a10700214 100644 --- a/v7/src/runtime/make.scm +++ b/v7/src/runtime/make.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/make.scm,v 14.11 1989/05/04 16:38:08 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/make.scm,v 14.12 1989/05/21 17:17:56 jinx Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -256,7 +256,9 @@ MIT in each case. |# (car names)) (loop (cdr names))))) (package/add-child! system-global-package 'PACKAGE environment-for-package) -(eval (fasload "runtim.bcon" false) system-global-environment) +(eval (fasload "runtim.bcon" false) + ;; (cold-load/purify (fasload "runtim.bcon" false)) + system-global-environment) ;; Global databases. Load, then initialize. (let loop diff --git a/v8/src/runtime/make.scm b/v8/src/runtime/make.scm index 2dc53398b..22fcaf41e 100644 --- a/v8/src/runtime/make.scm +++ b/v8/src/runtime/make.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/make.scm,v 14.11 1989/05/04 16:38:08 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/make.scm,v 14.12 1989/05/21 17:17:56 jinx Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -256,7 +256,9 @@ MIT in each case. |# (car names)) (loop (cdr names))))) (package/add-child! system-global-package 'PACKAGE environment-for-package) -(eval (fasload "runtim.bcon" false) system-global-environment) +(eval (fasload "runtim.bcon" false) + ;; (cold-load/purify (fasload "runtim.bcon" false)) + system-global-environment) ;; Global databases. Load, then initialize. (let loop -- 2.25.1