From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 16 Nov 2018 07:19:35 +0000 (-0800)
Subject: Eliminate obsolete record-type-dispatch-tag.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~89
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=feda7074e3e2bb63ad00c553fb06d30444d8bb56;p=mit-scheme.git

Eliminate obsolete record-type-dispatch-tag.
---

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