Fix think-o in previous change.

diff --git a/v7/src/sf/subst.scm b/v7/src/sf/subst.scm
index e5639fc595452b1336cf15df4a163e264c05dd4b..7e6549eccc11480e496fa714df75197d4bf88357 100644 (file)
--- 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))