Alpha now handles "compressed" top-level block as on the Spectrum and i386

diff --git a/v7/src/compiler/machines/alpha/make.scm b/v7/src/compiler/machines/alpha/make.scm
index 7c072bd8e12b6d9401731e120bf248e3c4f45ed8..5bf77d48f63817bcc187e5cab77912f0fbe623ec 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.2 1993/11/12 14:43:00 jmiller Exp $
+$Id: make.scm,v 1.3 1993/11/12 20:22:51 jmiller Exp $
 
 Copyright (c) 1992 Digital Equipment Corporation (D.E.C.)
 
@@ -39,6 +39,6 @@ case.
 (declare (usual-integrations))
 
 (let ((value ((load "base/make") "Alpha")))
-;  (set! (access compiler:compress-top-level? (->environment '(compiler)))
-;        true)
+  (set! (access compiler:compress-top-level? (->environment '(compiler)))
+        true)
   value)