From 0c957554806f661f45ec89d038896badaa9291f2 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 1 Feb 2012 11:33:51 -0700 Subject: [PATCH] cref: Added butils.scm to hand-compiled bootstrap packages. --- src/cref/triv.pkg | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) 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") -- 2.25.1