From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 1 Feb 2012 18:33:51 +0000 (-0700)
Subject: cref: Added butils.scm to hand-compiled bootstrap packages.
X-Git-Tag: release-9.2.0~326
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0c957554806f661f45ec89d038896badaa9291f2;p=mit-scheme.git

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

diff --git a/src/cref/triv.pkg b/src/cref/triv.pkg
index fc99eb0a3..05bd35d83 100644
--- 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")