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-Tag: mit-scheme-pucked-10.1.9~3^2~39
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=561cd35e0fe2ea76d26ee1e377c0e34acb4c5c09;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 1f3069fe2..63110b90e 100644
--- a/src/runtime/record.scm
+++ b/src/runtime/record.scm
@@ -134,17 +134,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?)