From 8f2bad3b8cea97189a9e842ed0f78559aa4be795 Mon Sep 17 00:00:00 2001 From: dos-reis 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-op2.boot | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/interp/br-op2.boot') diff --git a/src/interp/br-op2.boot b/src/interp/br-op2.boot index de06e99a..837adb90 100644 --- a/src/interp/br-op2.boot +++ b/src/interp/br-op2.boot @@ -448,7 +448,7 @@ koCatOps1 alist == [x for item in alist | x := pair] where false koCatAttrs(catform,domname) == - $if: local := MAKE_-HASHTABLE 'ID + $if: local := hashTable 'EQ catname := opOf catform koCatAttrsAdd(domname or catform,true) ancestors := ancestorsOf(catform,domname) -- cgit v1.2.3