From feda7074e3e2bb63ad00c553fb06d30444d8bb56 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 15 Nov 2018 23:19:35 -0800 Subject: [PATCH] Eliminate obsolete record-type-dispatch-tag. --- src/runtime/record.scm | 4 ---- src/runtime/runtime.pkg | 1 - 2 files changed, 5 deletions(-) diff --git a/src/runtime/record.scm b/src/runtime/record.scm index c98dfc5c3..1f3069fe2 100644 --- a/src/runtime/record.scm +++ b/src/runtime/record.scm @@ -157,10 +157,6 @@ USA. (dispatch-metatag-constructor %record-metatag 'make-record-type)) unspecific)) -;; Can be deleted after 9.3 release: -(define (record-type-dispatch-tag record-type) - record-type) - (define-integrable (%record-type-field-names record-type) (dispatch-tag-extra-ref record-type 0)) diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg index 0b7f6fa64..41a58d5a1 100644 --- a/src/runtime/runtime.pkg +++ b/src/runtime/runtime.pkg @@ -3834,7 +3834,6 @@ USA. record-predicate record-type-default-value-by-index record-type-descriptor - record-type-dispatch-tag ;can be deleted after 9.3 release record-type-field-names record-type-field-specs record-type-name -- 2.25.1