From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 4 Jan 2019 04:44:26 +0000 (-0500)
Subject: Don't use general predicate relations for record predicates.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=847174fb6c3bae722293707c34f5ace248a160b7;p=mit-scheme.git

Don't use general predicate relations for record predicates.
---

diff --git a/src/runtime/record.scm b/src/runtime/record.scm
index ad4e7cc3f..969d90077 100644
--- a/src/runtime/record.scm
+++ b/src/runtime/record.scm
@@ -160,17 +160,11 @@ USA.
 	  ((%record-type-proxy? marker) (%proxy->record-type marker))
 	  (else #f))))
 
-;; Temporary definition for cold load.
 (define (%record-type<= t1 t2)
   (or (eq? t1 t2)
       (let ((parent (%record-type-parent t1)))
 	(and parent
 	     (%record-type<= parent t2)))))
-
-(defer-boot-action 'predicate-relations
-  (lambda ()
-    (set! %record-type<= dispatch-tag<=)
-    unspecific))
 
 (define %record-metatag)
 (define record-type?)