Use makeTable instead of MAKE-HASH-TABLE

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