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 412d517f1076daf3b41ae170aeab52ef4f032b7c..4b756d6b357a1cc250229c03758a19fa972ac6a7 100644 (file)
--- 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)