From: Jim Miller <edu/mit/csail/zurich/jmiller>
Date: Fri, 12 Nov 1993 20:22:51 +0000 (+0000)
Subject: Alpha now handles "compressed" top-level block as on the Spectrum and i386
X-Git-Tag: 20090517-FFI~7526
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e68786390a8fa9b53f7937e7d7c7f73f5889de4b;p=mit-scheme.git

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 7c072bd8e..5bf77d48f 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.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)