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 771407a5d0a14e9ad5f4177eb565b2d67b5c92c3..f70ee31761136b726cd7ece2a4241d1491ae9354 100644 (file)
--- 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