From b435bc622d5ef0ccf8a8a5d44c23e931e0bf8f37 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Wed, 12 Jul 1995 11:52:43 +0000 Subject: [PATCH] Fix think-o in last change. --- v8/src/sf/subst.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/v8/src/sf/subst.scm b/v8/src/sf/subst.scm index 3e978e29f..dfc53c01b 100644 --- a/v8/src/sf/subst.scm +++ b/v8/src/sf/subst.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: subst.scm,v 1.2 1995/07/07 03:54:19 adams Exp $ +$Id: subst.scm,v 1.3 1995/07/12 11:52:43 adams Exp $ Copyright (c) 1988-1995 Massachusetts Institute of Technology @@ -991,8 +991,9 @@ forms are simply removed. ((and (procedure? operator) (block/safe? (procedure/block operator)) - (null? (declarations/original - (block/declarations (procedure/block operator)))) + (for-all? (declarations/original + (block/declarations (procedure/block operator))) + declarations/known?) (for-all? (procedure/optional operator) variable/integrated) (or (not (procedure/rest operator)) -- 2.25.1