From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 6 Jan 2019 02:12:26 +0000 (-0800)
Subject: Fix problem with using bundle? as a bundle predicate.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~21
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6c31880508354532887e0f37be53928e1efdd2ed;p=mit-scheme.git

Fix problem with using bundle? as a bundle predicate.
---

diff --git a/src/runtime/bundle.scm b/src/runtime/bundle.scm
index 44d6e669e..67bc8095e 100644
--- a/src/runtime/bundle.scm
+++ b/src/runtime/bundle.scm
@@ -78,6 +78,10 @@ USA.
 (define <bundle>
   (make-record-type '<bundle> '(alist)))
 
+(defer-boot-action 'record-procedures
+  (lambda ()
+    (set-record-type-applicator! <bundle> %bundle-applicator)))
+
 (define bundle?
   (record-predicate <bundle>))