Prepare for next version, where we'll use compiler:compress-top-level

diff --git a/v7/src/compiler/machines/alpha/make.scm b/v7/src/compiler/machines/alpha/make.scm
index cf680d49b757727c3a4ee9403a81f8a16dbc9cc6..7c072bd8e12b6d9401731e120bf248e3c4f45ed8 100644 (file)
--- a/v7/src/compiler/machines/alpha/make.scm
+++ b/v7/src/compiler/machines/alpha/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 1.1 1992/08/29 13:51:28 jinx Exp $
+$Id: make.scm,v 1.2 1993/11/12 14:43:00 jmiller Exp $
 
 Copyright (c) 1992 Digital Equipment Corporation (D.E.C.)
 
@@ -38,4 +38,7 @@ case.
 
 (declare (usual-integrations))
 
-((load "base/make") "Alpha")
+(let ((value ((load "base/make") "Alpha")))
+;  (set! (access compiler:compress-top-level? (->environment '(compiler)))
+;        true)
+  value)