From: ssmith <ssmith>
Date: Wed, 25 Oct 1995 19:54:30 +0000 (+0000)
Subject: Updated to be more like Spectrum's
X-Git-Tag: 20090517-FFI~5843
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e65c100685b26bb4ffd75e00af4e473fa5af2b1f;p=mit-scheme.git

Updated to be more like Spectrum's
---

diff --git a/v8/src/compiler/machines/i386/make.scm b/v8/src/compiler/machines/i386/make.scm
index 69d20b0bf..0b368792f 100644
--- a/v8/src/compiler/machines/i386/make.scm
+++ b/v8/src/compiler/machines/i386/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 1.1 1995/01/10 20:53:03 adams Exp $
+$Id: make.scm,v 1.2 1995/10/25 19:54:30 ssmith Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -36,8 +36,13 @@ MIT in each case. |#
 
 (declare (usual-integrations))
 
-(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
+(let ((loader
+       (lambda ()
+	 (load-option 'SF)
+	 (let ((value ((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)
+	 (load "midend/load" #F))))
+  (loader))