From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 Jan 2018 06:07:58 +0000 (-0800)
Subject: Fix bug: record-type-type-tag was missing a tag.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~357
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=881c4d45a8150874eaccf9f9fa28095cb46415f7;p=mit-scheme.git

Fix bug: record-type-type-tag was missing a tag.
---

diff --git a/src/runtime/predicate-metadata.scm b/src/runtime/predicate-metadata.scm
index 346d93e3b..215e51e4d 100644
--- a/src/runtime/predicate-metadata.scm
+++ b/src/runtime/predicate-metadata.scm
@@ -236,7 +236,6 @@ USA.
    (register-predicate! record? 'record
 			'<= %record?
 			'<= named-structure?)
-   (register-predicate! record-type? 'record-type '<= record?)
    (register-predicate! stack-address? 'stack-address)
    (register-predicate! thread-mutex? 'thread-mutex)
    (register-predicate! undefined-value? 'undefined-value)
diff --git a/src/runtime/record.scm b/src/runtime/record.scm
index ae78d5a04..c86ca9018 100644
--- a/src/runtime/record.scm
+++ b/src/runtime/record.scm
@@ -64,7 +64,8 @@ USA.
 		   #f)))
     (set! record-type-type-tag (make-dispatch-tag type))
     (%record-set! type 0 record-type-type-tag)
-    (%record-set! type 1 record-type-type-tag))
+    (%record-set! type 1 record-type-type-tag)
+    (%set-record-type-predicate! type record-type?))
   (initialize-structure-type-type!))
 
 (define (make-record-type type-name field-names