From 96ae36f1439dc2a5752615e9e8f2a67bdf85c5b1 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 Apr 1996 20:59:29 +0000
Subject: [PATCH] Add primitive to test data type of Edwin "mark" objects.

---
 v7/src/microcode/edwin.h | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v7/src/microcode/edwin.h b/v7/src/microcode/edwin.h
index 895d41acf..e17e4abab 100644
--- a/v7/src/microcode/edwin.h
+++ b/v7/src/microcode/edwin.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: edwin.h,v 1.7 1993/08/23 22:28:40 cph Exp $
+$Id: edwin.h,v 1.8 1996/04/23 20:59:29 cph Exp $
 
-Copyright (c) 1987-93 Massachusetts Institute of Technology
+Copyright (c) 1987-96 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -51,6 +51,7 @@ MIT in each case. */
 #define GROUP_END_MARK(group) (VECTOR_REF ((group), 7))
 #define GROUP_MODIFIED_P(group) (VECTOR_REF ((group), 16))
 
+#define MARK_P RECORD_P
 #define MARK_GROUP(mark) (VECTOR_REF ((mark), 1))
 #define MARK_INDEX(mark) (UNSIGNED_FIXNUM_TO_LONG (VECTOR_REF ((mark), 2)))
 #define MARK_LEFT_INSERTING(mark) ((VECTOR_REF ((mark), 3)) != SHARP_F)
-- 
2.25.1