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-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=706a8166490c2d3d1b04df1ae623b6ecef242a2d;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 091dd0ab9..fa2956cce 100644
--- a/src/runtime/bundle.scm
+++ b/src/runtime/bundle.scm
@@ -78,6 +78,10 @@ USA.
 (define <bundle>
   (new-make-record-type '<bundle> '(alist)))
 
+(defer-boot-action 'record-procedures
+  (lambda ()
+    (set-record-type-applicator! <bundle> %bundle-applicator)))
+
 (define bundle?
   (record-predicate <bundle>))