From: Jim Miller <edu/mit/csail/zurich/jmiller>
Date: Fri, 12 Nov 1993 14:43:00 +0000 (+0000)
Subject: Prepare for next version, where we'll use compiler:compress-top-level
X-Git-Tag: 20090517-FFI~7535
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5c296c2ad50c0b9e362a52622124701de47e6b40;p=mit-scheme.git

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 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)