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 77d31e6aa5952591523f21eaa871a52bc5bd2213..a107002148111f72ce7d69d06ab6899bc802ed2d 100644 (file)
--- 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 2dc53398b3dc9e41107440a64da33c6fe809fdc7..22fcaf41ecad82d099ab8e0fb4dce9fa0541883f 100644 (file)
--- 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