From 5c296c2ad50c0b9e362a52622124701de47e6b40 Mon Sep 17 00:00:00 2001
From: Jim Miller <edu/mit/csail/zurich/jmiller>
Date: Fri, 12 Nov 1993 14:43:00 +0000
Subject: [PATCH] Prepare for next version, where we'll use
 compiler:compress-top-level

---
 v7/src/compiler/machines/alpha/make.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/v7/src/compiler/machines/alpha/make.scm b/v7/src/compiler/machines/alpha/make.scm
index cf680d49b..7c072bd8e 100644
--- 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)
-- 
2.25.1