From: ssmith <ssmith>
Date: Wed, 25 Oct 1995 20:37:05 +0000 (+0000)
Subject: made it let* instead of let... but it is still broken...
X-Git-Tag: 20090517-FFI~5841
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=597211ce33538d2f1ece73b047a486445694b9f3;p=mit-scheme.git

made it let* instead of let... but it is still broken...
---

diff --git a/v8/src/compiler/machines/i386/make.scm b/v8/src/compiler/machines/i386/make.scm
index 8610e6272..b824c93c6 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.3 1995/10/25 20:16:02 ssmith Exp $
+$Id: make.scm,v 1.4 1995/10/25 20:37:05 ssmith Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -39,8 +39,8 @@ MIT in each case. |#
 (let ((loader
        (lambda ()
 	 (load-option 'SF)
-	 (let ((value ((load "base/make") "Intel i386"))
-	       (env (->environment '(compiler))))
+	 (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)
 	   value)