From 847174fb6c3bae722293707c34f5ace248a160b7 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 3 Jan 2019 23:44:26 -0500
Subject: [PATCH] Don't use general predicate relations for record predicates.

---
 src/runtime/record.scm | 6 ------
 1 file changed, 6 deletions(-)

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?)
-- 
2.25.1