From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 1 Mar 1993 17:37:19 +0000 (+0000)
Subject: Turn compress-top-level? on.
X-Git-Tag: 20090517-FFI~8438
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d39088f81069f847e3faccb653871d21bf305f0f;p=mit-scheme.git

Turn compress-top-level? on.
---

diff --git a/v7/src/compiler/machines/i386/make.scm b/v7/src/compiler/machines/i386/make.scm
index 6f65173d3..554ff81df 100644
--- a/v7/src/compiler/machines/i386/make.scm
+++ b/v7/src/compiler/machines/i386/make.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 1.3 1992/10/07 01:29:36 jinx Exp $
+$Id: make.scm,v 1.4 1993/03/01 17:37:19 gjr Exp $
 
-Copyright (c) 1992 Massachusetts Institute of Technology
+Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -36,6 +36,8 @@ MIT in each case. |#
 
 (declare (usual-integrations))
 
-((load "base/make") "Intel i386")
-(set! (access compiler:generate-stack-checks? (->environment '(compiler)))
-      false)
\ No newline at end of file
+(let* ((val ((load "base/make") "Intel i386"))
+       (env (->environment '(compiler))))
+  (set! (access compiler:generate-stack-checks? env) false)
+  (set! (access compiler:compress-top-level? env) true)
+  val)
\ No newline at end of file