From 881c4d45a8150874eaccf9f9fa28095cb46415f7 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 15 Jan 2018 22:07:58 -0800 Subject: [PATCH] Fix bug: record-type-type-tag was missing a tag. --- src/runtime/predicate-metadata.scm | 1 - src/runtime/record.scm | 3 ++- 2 files changed, 2 insertions(+), 2 deletions(-) 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 -- 2.25.1