From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 16 Aug 2001 20:59:56 +0000 (+0000)
Subject: Change "parent-name" field of package description to contain the names
X-Git-Tag: 20090517-FFI~2590
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f456f00302bf30620b9a37a2e2639dfb28c3a196;p=mit-scheme.git

Change "parent-name" field of package description to contain the names
of every ancestor of the package.  This is necessary so that we can
replace the use of ".glo" files with ".pkd" files.
---

diff --git a/v7/src/cref/triv.pkg b/v7/src/cref/triv.pkg
index 412d517f1..4b756d6b3 100644
--- a/v7/src/cref/triv.pkg
+++ b/v7/src/cref/triv.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: triv.pkg,v 1.3 2001/08/16 20:59:00 cph Exp $
+$Id: triv.pkg,v 1.4 2001/08/16 20:59:56 cph Exp $
 
 Copyright (c) 2001 Massachusetts Institute of Technology
 
@@ -33,7 +33,7 @@ USA.
 			'#()
 			(list->vector
 			 (map (lambda (name)
-				(vector name (cons parent-name name)))
+				(vector name (cons (car ancestors) name)))
 			      exported-names))
 			'#()))))
 	 (vector (package '(cross-reference)