From 8f2bad3b8cea97189a9e842ed0f78559aa4be795 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 13 May 2010 14:47:31 +0000
Subject: 	* interp/sys-utility.boot (hashTable): Define. 	*
 interp/word.boot: Use it. 	* interp/topics.boot: Likewise. 	*
 interp/sys-driver.boot: Likewise. 	* interp/slam.boot: Likewise. 	*
 interp/setvars.boot: Likewise. 	* interp/scan.boot: Likewise. 	*
 interp/nrunopt.boot: Likewise. 	* interp/nruncomp.boot: Likewise. 
 * interp/newfort.boot: Likewise. 	* interp/mark.boot: Likewise. 	*
 interp/interop.boot: Likewise. 	* interp/i-toplev.boot: Likewise. 
 * interp/i-syscmd.boot: Likewise. 	* interp/htcheck.boot: Likewise. 
 * interp/guess.boot: Likewise. 	* interp/g-util.boot: Likewise. 
 * interp/database.boot: Likewise. 	* interp/compress.boot: Likewise. 
 * interp/clam.boot: Likewise. 	* interp/cattable.boot: Likewise. 	*
 interp/c-util.boot: Likewise. 	* interp/br-op2.boot: Likewise. 	*
 interp/br-op1.boot: Likewise. 	* interp/br-con.boot: Likewise. 	*
 interp/sys-globals.boot ($ConstructorCache): Move elsewhere. 
 ($instantRecord): Likewise. 	* algebra/newdata.spad.pamphlet: Use EQUAL as
 equality function 	for hash table. 	* algebra/table.spad.pamphlet:
 Call hashTable builtin function 	instead of MAKE-HASHTABLE.

---
 src/interp/br-data.boot | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/interp/br-data.boot')

diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot
index d8668ed4..e5fcc1ca 100644
--- a/src/interp/br-data.boot
+++ b/src/interp/br-data.boot
@@ -517,7 +517,7 @@ $parentsCache := nil
 
 parentsOf con == --called by kcpPage, ancestorsRecur
   if null $parentsCache then 
-     $parentsCache := MAKE_-HASHTABLE 'ID
+     $parentsCache := hashTable 'EQ
   HGET($parentsCache,con) or
     parents := getParentsForDomain con
     HPUT($parentsCache,con,parents)
@@ -594,7 +594,7 @@ childArgCheck(argl, nargl) ==
 
 --computeDescendantsOf cat ==
 --dynamically generates descendants
---  hash := MAKE_-HASHTABLE 'UEQUAL
+--  hash := hashTable 'EQUAL
 --  for [child,:pred] in childrenOf cat repeat
 --    childForm := getConstructorForm child
 --    HPUT(hash,childForm,pred)
@@ -618,8 +618,8 @@ ancestorsOf(conform,domform) ==  --called by kcaPage, originsInOrder,...
   computeAncestorsOf(conform,domform)
 
 computeAncestorsOf(conform,domform) ==
-  $done: local := MAKE_-HASHTABLE 'UEQUAL
-  $if:   local := MAKE_-HASHTABLE 'ID
+  $done: local := hashTable 'EQUAL
+  $if:   local := hashTable 'EQ
   ancestorsRecur(conform,domform,true,true)
   acc := nil
   for op in listSort(function GLESSEQP,HKEYS $if) repeat
-- 
cgit v1.2.3