From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sun, 21 May 1989 17:17:56 +0000 (+0000)
Subject: Allow for the possibility of purifying the bcon file, although it is
X-Git-Tag: 20090517-FFI~12054
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=018198d5726a4872728b9dffdc58a5037666d109;p=mit-scheme.git

Allow for the possibility of purifying the bcon file, although it is
currently turned off for space reasons.
---

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