From d39088f81069f847e3faccb653871d21bf305f0f Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 1 Mar 1993 17:37:19 +0000 Subject: [PATCH] Turn compress-top-level? on. --- v7/src/compiler/machines/i386/make.scm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/v7/src/compiler/machines/i386/make.scm b/v7/src/compiler/machines/i386/make.scm index 6f65173d3..554ff81df 100644 --- a/v7/src/compiler/machines/i386/make.scm +++ b/v7/src/compiler/machines/i386/make.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: make.scm,v 1.3 1992/10/07 01:29:36 jinx Exp $ +$Id: make.scm,v 1.4 1993/03/01 17:37:19 gjr Exp $ -Copyright (c) 1992 Massachusetts Institute of Technology +Copyright (c) 1992-1993 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -36,6 +36,8 @@ MIT in each case. |# (declare (usual-integrations)) -((load "base/make") "Intel i386") -(set! (access compiler:generate-stack-checks? (->environment '(compiler))) - false) \ No newline at end of file +(let* ((val ((load "base/make") "Intel i386")) + (env (->environment '(compiler)))) + (set! (access compiler:generate-stack-checks? env) false) + (set! (access compiler:compress-top-level? env) true) + val) \ No newline at end of file -- 2.25.1