From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 3 Jan 2017 20:26:29 +0000 (-0500)
Subject: Implement tagged-object type, a combination of a tag and an object.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~238
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d1d688184071294047c6bca1d3216a1b7d08d444;p=mit-scheme.git

Implement tagged-object type, a combination of a tag and an object.
---

diff --git a/src/microcode/gcloop.c b/src/microcode/gcloop.c
index d7153a725..14166156a 100644
--- a/src/microcode/gcloop.c
+++ b/src/microcode/gcloop.c
@@ -1288,7 +1288,7 @@ gc_type_t gc_type_map [N_TYPE_CODES] =
   GC_SPECIAL,			/* TC_BROKEN_HEART */
   GC_PAIR,			/* TC_ASSIGNMENT */
   GC_TRIPLE,			/* TC_HUNK3_B */
-  GC_UNDEFINED,			/* unused */
+  GC_PAIR,			/* TC_TAGGED_OBJECT */
   GC_VECTOR,			/* TC_COMBINATION */
   GC_SPECIAL,			/* TC_MANIFEST_NM_VECTOR */
   GC_COMPILED,			/* TC_COMPILED_ENTRY */
diff --git a/src/microcode/types.h b/src/microcode/types.h
index f74222cea..e5dc4b5a9 100644
--- a/src/microcode/types.h
+++ b/src/microcode/types.h
@@ -63,7 +63,7 @@ USA.
 #define TC_BROKEN_HEART			0x22
 #define TC_ASSIGNMENT			0x23
 #define TC_HUNK3_B			0x24
-/* #define TC_UNUSED_25			0x25 */
+#define TC_TAGGED_OBJECT		0x25
 #define TC_COMBINATION			0x26
 #define TC_MANIFEST_NM_VECTOR		0x27
 #define TC_COMPILED_ENTRY		0x28
@@ -141,7 +141,7 @@ USA.
   /* 0x22 */			"broken-heart",				\
   /* 0x23 */			"assignment",				\
   /* 0x24 */			"triple",				\
-  /* 0x25 */			0,					\
+  /* 0x25 */			"tagged-object",			\
   /* 0x26 */			"combination",				\
   /* 0x27 */			"manifest-nm-vector",			\
   /* 0x28 */			"compiled-entry",			\