diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/interp/br-data.boot | 6 | ||||
| -rw-r--r-- | src/interp/g-cndata.boot | 2 | ||||
| -rw-r--r-- | src/interp/g-util.boot | 8 | ||||
| -rw-r--r-- | src/interp/profile.boot | 2 | ||||
| -rw-r--r-- | src/interp/sys-utility.boot | 2 |
5 files changed, 10 insertions, 10 deletions
diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot index 0b761a15..a8930890 100644 --- a/src/interp/br-data.boot +++ b/src/interp/br-data.boot @@ -409,7 +409,7 @@ getGlossLines instream == -- function getUsersOfConstructor. See functions whoUses and kcuPage in browser. --============================================================================ mkUsersHashTable() == --called by buildDatabase (database.boot) - $usersTb := MAKE_-HASH_-TABLE() + $usersTb := makeTable function scalarEq? for x in allConstructors() repeat for conform in getImports x repeat name := opOf conform @@ -437,7 +437,7 @@ getDefaultPackageClients con == --called by mkUsersHashTable -- dependents of a constructor. --============================================================================ mkDependentsHashTable() == --called by buildDatabase (database.boot) - $depTb := MAKE_-HASH_-TABLE() + $depTb := makeTable function scalarEq? for nam in allConstructors() | not builtinConstructor? nam repeat for con in getArgumentConstructors nam repeat tableValue($depTb,con) := [nam,:tableValue($depTb,con)] @@ -690,7 +690,7 @@ sublisFormal(args,exp,:options) == main where --======================================================================= buildDefaultPackageNamesHT() == - $defaultPackageNamesHT := MAKE_-HASH_-TABLE() + $defaultPackageNamesHT := makeTable function scalarEq? for nam in allConstructors() | isDefaultPackageName nam repeat tableValue($defaultPackageNamesHT,nam) := true $defaultPackageNamesHT diff --git a/src/interp/g-cndata.boot b/src/interp/g-cndata.boot index f1f98eb5..deb307fa 100644 --- a/src/interp/g-cndata.boot +++ b/src/interp/g-cndata.boot @@ -46,7 +46,7 @@ $lowerCaseConTb := nil mkLowerCaseConTable() == --Called at system build time by function BUILD-INTERPSYS (see util.lisp) --Table is referenced by functions conPageFastPath and grepForAbbrev - $lowerCaseConTb := MAKE_-HASH_-TABLE() + $lowerCaseConTb := makeTable function scalarEq? for x in allConstructors() repeat augmentLowerCaseConTable x $lowerCaseConTb diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index aeb05ece..e96f81d3 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -987,10 +987,10 @@ intern x == -- variables used by browser -$htHash := MAKE_-HASH_-TABLE() -$glossHash := MAKE_-HASH_-TABLE() -$lispHash := MAKE_-HASH_-TABLE() -$sysHash := MAKE_-HASH_-TABLE() +$htHash := makeTable function scalarEq? +$glossHash := makeTable function scalarEq? +$lispHash := makeTable function scalarEq? +$sysHash := makeTable function scalarEq? $htSystemCommands := '( (boot . development) clear display (fin . development) edit help frame history load quit read set show synonym system diff --git a/src/interp/profile.boot b/src/interp/profile.boot index a9b9d58e..66667d0e 100644 --- a/src/interp/profile.boot +++ b/src/interp/profile.boot @@ -47,7 +47,7 @@ profileWrite lib == --called from finalizeLisplib SHUT outStream profileTran alist == - $profileHash := MAKE_-HASH_-TABLE() + $profileHash := makeTable function scalarEq? for [opSig,:info] in alist repeat op := opOf opSig sig := KAR KDR opSig diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index 5e349668..e043e6f7 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -243,7 +243,7 @@ hashTable cmp == cmp = 'EQL => function scalarEq? cmp = 'EQUAL => function EQUAL error '"bad arg to hashTable" - MAKE_-HASH_-TABLE(test <- testFun) + makeTable testFun --% Trees to Graphs |