diff options
Diffstat (limited to 'src/interp/br-data.boot')
| -rw-r--r-- | src/interp/br-data.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot index b11b2adf..e8b1ba7b 100644 --- a/src/interp/br-data.boot +++ b/src/interp/br-data.boot @@ -427,7 +427,7 @@ mkUsersHashTable() == --called by buildDatabase (database.boot) getDefaultPackageClients con == --called by mkUsersHashTable catname := makeSymbol subString(s := symbolName con,0,maxIndex s) for [catAncestor,:.] in childrenOf([catname]) repeat - pakname := makeDefaultPackageName symbolName catAncestor + pakname := makeDefaultPackageName symbolName catAncestor.op if getCDTEntry(pakname,true) then acc := [pakname,:acc] acc := union([CAAR x for x in domainsOf([catAncestor],nil)],acc) listSort(function GLESSEQP,acc) |