cref: Added butils.scm to hand-compiled bootstrap packages.

diff --git a/src/cref/triv.pkg b/src/cref/triv.pkg
index fc99eb0a3f03a2bff67a6ef2eb947d734e7d91f1..05bd35d837b29d81b59a94dcaec561815f02a22a 100644 (file)
--- a/src/cref/triv.pkg
+++ b/src/cref/triv.pkg
@@ -35,12 +35,13 @@ USA.
                  ancestors
                  '#()
                  (list->vector
-                  (map (lambda (name)
-                         (vector name (car ancestors)))
+                  (map (lambda (n.p)
+                         (if (pair? n.p)
+                             (vector (car n.p) (cdr n.p))
+                             (vector n.p (car ancestors))))
                        exported-names))
                  (list->vector
-                  (map (lambda (n.p)
-                         (vector (car n.p) (cdr n.p)))
+                  (map (lambda (n.p) (vector (car n.p) (cdr n.p)))
                        imported-names))
                  #f))))
    (vector (package '(cross-reference)
@@ -52,6 +53,10 @@ USA.
                      cref/generate-trivial-constructor
                      cref/package-files)
                    '())
+          (package '(cross-reference build-utilities)
+                   '((cross-reference) ())
+                   '((compile-system))
+                   '())
           (package '(cross-reference analyze-file)
                    '((cross-reference) ())
                    '(analyze-file)
@@ -78,6 +83,7 @@ USA.
                  '#()
                  '#()))))
    (vector (files '(cross-reference) "mset" "object" "toplev")
+          (files '(cross-reference build-utilities) "butils")
           (files '(cross-reference analyze-file) "anfile")
           (files '(cross-reference constructor) "conpkg")
           (files '(cross-reference formatter) "forpkg")