made it let* instead of let... but it is still broken...
authorssmith <ssmith>
Wed, 25 Oct 1995 20:37:05 +0000 (20:37 +0000)
committerssmith <ssmith>
Wed, 25 Oct 1995 20:37:05 +0000 (20:37 +0000)
v8/src/compiler/machines/i386/make.scm

index 8610e6272d8bca630263bc02c535a7090ca6aa5e..b824c93c645214fa5c6464fd14a0067475cd9bef 100644 (file)
@@ -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)