Integrate structure predicates.

diff --git a/v7/src/runtime/defstr.scm b/v7/src/runtime/defstr.scm
index e8562f35d32afe36c6a137df1eb9daddf1ad284e..c211f035ba1d8d7d2e2cc2bd2612e88da8b7a57d 100644 (file)
--- a/v7/src/runtime/defstr.scm
+++ b/v7/src/runtime/defstr.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: defstr.scm,v 14.20 1992/12/07 19:06:41 cph Exp $
+$Id: defstr.scm,v 14.21 1992/12/22 22:05:32 cph Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -591,7 +591,8 @@ differences:
     (if predicate-name
        (let ((tag-expression (structure/tag-expression structure))
              (variable (string->uninterned-symbol "object")))
-         `((DEFINE (,predicate-name ,variable)
+         `((DECLARE (INTEGRATE-OPERATOR ,predicate-name))
+           (DEFINE (,predicate-name ,variable)
              ,(case (structure/type structure)
                 ((RECORD)
                  `(AND (,(absolute '%RECORD?) ,variable)