From 1305daea318618e633f0cdcae9fc255c07446362 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 22 Dec 1992 22:05:32 +0000
Subject: [PATCH] Integrate structure predicates.
---
v7/src/runtime/defstr.scm | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
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)
--
2.25.1