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 346d93e3b51b52cf92e36bfe61c207e89a7891ad..215e51e4d1762e0c60266873019eea626277c0bf 100644 (file)
--- 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 ae78d5a041a90a8ea724096e0008c6b56fcde747..c86ca9018b2c7fd8e11dec9ce5543bc17e1eef4f 100644 (file)
--- 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!))
 \f
 (define (make-record-type type-name field-names