Don't optimize away (LET () ...) if the body of the let contains

declarations.

diff --git a/v8/src/sf/subst.scm b/v8/src/sf/subst.scm
index 6f6ca74ee4e69b30747dcc2ae32e45dc7590507b..3e978e29f9758ca6b653cd0a39abd2af097e0cd6 100644 (file)
--- a/v8/src/sf/subst.scm
+++ b/v8/src/sf/subst.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: subst.scm,v 1.1 1995/03/07 22:13:23 adams Exp $
+$Id: subst.scm,v 1.2 1995/07/07 03:54:19 adams Exp $
 
-Copyright (c) 1988-1993 Massachusetts Institute of Technology
+Copyright (c) 1988-1995 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -991,6 +991,8 @@ forms are simply removed.
 
        ((and (procedure? operator)
              (block/safe? (procedure/block operator))
+             (null? (declarations/original
+                     (block/declarations (procedure/block operator))))
              (for-all? (procedure/optional operator)
                variable/integrated)
              (or (not (procedure/rest operator))