Turn compress-top-level? on.

diff --git a/v7/src/compiler/machines/i386/make.scm b/v7/src/compiler/machines/i386/make.scm
index 6f65173d36ef0a56ab03e4cc23ba9e4b856e779d..554ff81dff5b1d8a12efd8e71729139675aee846 100644 (file)
--- 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