From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 21 Jan 2018 23:56:03 +0000 (-0800)
Subject: Fix bug: bundle-interface predicates can't use dispatch-tag<= during cold load.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~322
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ca8763911137860478ecdd5bc83755c55c42e993;p=mit-scheme.git

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.
---

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