From d8e07ff9bebdb5481b4db045be26d279816eb531 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 11 Jul 1995 21:50:17 +0000 Subject: [PATCH] Fix think-o in previous change. --- v7/src/sf/subst.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/v7/src/sf/subst.scm b/v7/src/sf/subst.scm index e5639fc59..7e6549ecc 100644 --- a/v7/src/sf/subst.scm +++ b/v7/src/sf/subst.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: subst.scm,v 4.14 1995/07/06 22:18:08 cph Exp $ +$Id: subst.scm,v 4.15 1995/07/11 21:50:17 cph Exp $ Copyright (c) 1988-95 Massachusetts Institute of Technology @@ -982,8 +982,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