From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 13 Nov 1993 19:35:10 +0000 (+0000)
Subject: Load option compress when the compiler is loaded.
X-Git-Tag: 20090517-FFI~7507
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c63eea1cf441389f2be64020c68c6a7f4b7191aa;p=mit-scheme.git

Load option compress when the compiler is loaded.
---

diff --git a/v7/src/compiler/base/asstop.scm b/v7/src/compiler/base/asstop.scm
index 8a4ad13a3..bdd64299c 100644
--- a/v7/src/compiler/base/asstop.scm
+++ b/v7/src/compiler/base/asstop.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: asstop.scm,v 1.7 1993/11/09 04:13:55 gjr Exp $
+$Id: asstop.scm,v 1.8 1993/11/13 19:34:48 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -278,7 +278,6 @@ MIT in each case. |#
     (announce-info-files bif-path bsm-path)))
   
 (define (compiler:dump-bci/bcs-files binf pathname)
-  (load-option 'COMPRESS)
   (let ((bci-path (pathname-new-type pathname "bci"))
 	(bcs-path (pathname-new-type pathname "bcs")))
     (let ((bsm (split-inf-structure! binf bcs-path)))
@@ -293,7 +292,6 @@ MIT in each case. |#
     (announce-info-files bci-path bcs-path)))
   
 (define (compiler:dump-bci-file binf pathname)
-  (load-option 'COMPRESS)
   (let ((bci-path (pathname-new-type pathname "bci")))
     (split-inf-structure! binf false)
     (call-with-temporary-filename
diff --git a/v7/src/compiler/base/make.scm b/v7/src/compiler/base/make.scm
index 7ea1526ac..165d109e0 100644
--- a/v7/src/compiler/base/make.scm
+++ b/v7/src/compiler/base/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 4.100 1993/10/12 07:27:58 cph Exp $
+$Id: make.scm,v 4.101 1993/11/13 19:33:53 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -37,6 +37,7 @@ MIT in each case. |#
 (declare (usual-integrations))
 
 (lambda (architecture-name)
+  (load-option 'COMPRESS)
   (load-option 'HASH-TABLE)
   (load-option 'RB-TREE)
   (package/system-loader "comp" '() 'QUERY)
diff --git a/v7/src/compiler/machines/C/ctop.scm b/v7/src/compiler/machines/C/ctop.scm
index 37f502e2f..8d3a554f6 100644
--- a/v7/src/compiler/machines/C/ctop.scm
+++ b/v7/src/compiler/machines/C/ctop.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: ctop.scm,v 1.7 1993/11/13 19:21:09 gjr Exp $
+$Id: ctop.scm,v 1.8 1993/11/13 19:35:10 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -431,7 +431,6 @@ MIT in each case. |#
 	       *info-output-filename*))))))
 
 (define (compiler:dump-bci-file binf pathname)
-  (load-option 'COMPRESS)
   (let ((bci-path (pathname-new-type pathname "bci")))
     (split-inf-structure! binf false)
     (call-with-temporary-filename