From 3c29b4fdd5555b95b1106562df3620b80d1a8467 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Fri, 7 Jul 1995 03:54:19 +0000 Subject: [PATCH] Don't optimize away (LET () ...) if the body of the let contains declarations. --- v8/src/sf/subst.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/v8/src/sf/subst.scm b/v8/src/sf/subst.scm index 6f6ca74ee..3e978e29f 100644 --- 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)) -- 2.25.1