From f456f00302bf30620b9a37a2e2639dfb28c3a196 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 16 Aug 2001 20:59:56 +0000
Subject: [PATCH] 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.

---
 v7/src/cref/triv.pkg | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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)
-- 
2.25.1