From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 22 Dec 1992 22:05:32 +0000 (+0000)
Subject: Integrate structure predicates.
X-Git-Tag: 20090517-FFI~8644
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1305daea318618e633f0cdcae9fc255c07446362;p=mit-scheme.git

Integrate structure predicates.
---

diff --git a/v7/src/runtime/defstr.scm b/v7/src/runtime/defstr.scm
index e8562f35d..c211f035b 100644
--- 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)