From ca8763911137860478ecdd5bc83755c55c42e993 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 21 Jan 2018 15:56:03 -0800
Subject: [PATCH] Fix bug: bundle-interface predicates can't use dispatch-tag<=
 during cold load.

I don't think they need to do this anyway, since inheritance isn't part of this
design.
---
 src/runtime/bundle.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/runtime/bundle.scm b/src/runtime/bundle.scm
index 771407a5d..f70ee3176 100644
--- a/src/runtime/bundle.scm
+++ b/src/runtime/bundle.scm
@@ -47,7 +47,7 @@ USA.
       ((predicate
 	(lambda (object)
 	  (and (bundle? object)
-	       (dispatch-tag<= (%bundle-tag object) tag))))
+	       (eq? tag (%bundle-tag object)))))
        (tag
 	(make-bundle-interface-tag name
 				   predicate
-- 
2.25.1