From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 2 Dec 1992 18:11:14 +0000 (+0000)
Subject: Add support for TC_RECORD data type.
X-Git-Tag: 20090517-FFI~8685
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cc0e709b977661019e171b2f8296556420595b56;p=mit-scheme.git

Add support for TC_RECORD data type.
---

diff --git a/v7/src/microcode/object.h b/v7/src/microcode/object.h
index 0e40f23a6..0f04a2a74 100644
--- a/v7/src/microcode/object.h
+++ b/v7/src/microcode/object.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/object.h,v 9.39 1992/08/05 02:48:03 jinx Exp $
+$Id: object.h,v 9.40 1992/12/02 18:11:14 cph Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -194,6 +194,7 @@ extern SCHEME_OBJECT * memory_base;
 #define PAIR_P(object) ((OBJECT_TYPE (object)) == TC_LIST)
 #define WEAK_PAIR_P(object) ((OBJECT_TYPE (object)) == TC_WEAK_CONS)
 #define VECTOR_P(object) ((OBJECT_TYPE (object)) == TC_VECTOR)
+#define RECORD_P(object) ((OBJECT_TYPE (object)) == TC_RECORD)
 #define BOOLEAN_P(object) (((object) == SHARP_T) || ((object) == SHARP_F))
 #define REFERENCE_TRAP_P(object) ((OBJECT_TYPE (object)) == TC_REFERENCE_TRAP)
 #define PRIMITIVE_P(object) ((OBJECT_TYPE (object)) == TC_PRIMITIVE)
diff --git a/v8/src/microcode/object.h b/v8/src/microcode/object.h
index 6f2e8598e..0f04a2a74 100644
--- a/v8/src/microcode/object.h
+++ b/v8/src/microcode/object.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/object.h,v 9.39 1992/08/05 02:48:03 jinx Exp $
+$Id: object.h,v 9.40 1992/12/02 18:11:14 cph Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -194,6 +194,7 @@ extern SCHEME_OBJECT * memory_base;
 #define PAIR_P(object) ((OBJECT_TYPE (object)) == TC_LIST)
 #define WEAK_PAIR_P(object) ((OBJECT_TYPE (object)) == TC_WEAK_CONS)
 #define VECTOR_P(object) ((OBJECT_TYPE (object)) == TC_VECTOR)
+#define RECORD_P(object) ((OBJECT_TYPE (object)) == TC_RECORD)
 #define BOOLEAN_P(object) (((object) == SHARP_T) || ((object) == SHARP_F))
 #define REFERENCE_TRAP_P(object) ((OBJECT_TYPE (object)) == TC_REFERENCE_TRAP)
 #define PRIMITIVE_P(object) ((OBJECT_TYPE (object)) == TC_PRIMITIVE)