diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-08-13 14:55:53 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-08-13 14:55:53 +0000 |
| commit | cd4b966f39550403099a0abf1e993af1e7e79139 (patch) | |
| tree | 84fbcdcedeecd1915b000131e6d5ae8ea9f2bdbd /src/interp/cattable.boot | |
| parent | 5f7f460c22d03c5c1b2e318e97971518465c4197 (diff) | |
| download | open-axiom-cd4b966f39550403099a0abf1e993af1e7e79139.tar.gz | |
(|COMP,TRAN|): Remove.
(|spadHash|): Likewise.
(|$internalHistoryTable|): Don't define here.
(|isBpiOrLambda|): Remove.
(|libraryFileLists|): Likewise.
(|normalizeArgFileName|): Likewise.
(save-system) [LUCID]: Likewise.
(|undoINITIALIZE|): Likewise.
(|isLowerCaseLetter|): Don't define here.
(|isUpperCaseLetter|): Likewise.
(|isLetter|): Likewise.
(printCopyright): Remove.
(user-homedir-pathname): Likewise.
(BUMPCOMPERRORCOUNT): Likewise.
(|cpCms|): Likewise.
(|normalizeTimeAndStringify|): Likewise.
(whocalled): Likewise.
(|compressHashTable|): Likewise.
(SETLETPRINTFLAG): Don't define here.
(RESTART0): Move to sys-driver.boot
* interp/g-util.boot (charRangeTest): Remove.
Diffstat (limited to 'src/interp/cattable.boot')
| -rw-r--r-- | src/interp/cattable.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/cattable.boot b/src/interp/cattable.boot index 29632e2c..671b4f8d 100644 --- a/src/interp/cattable.boot +++ b/src/interp/cattable.boot @@ -70,9 +70,9 @@ genCategoryTable() == for [a,:b] in encodeCategoryAlist(id,entry) repeat HPUT(_*HASCATEGORY_-HASH_*,[id,:a],b) simpTempCategoryTable() - compressHashTable _*ANCESTORS_-HASH_* + -- compressHashTable _*ANCESTORS_-HASH_* simpCategoryTable() - compressHashTable _*HASCATEGORY_-HASH_* + -- compressHashTable _*HASCATEGORY_-HASH_* simpTempCategoryTable() == for id in HKEYS _*ANCESTORS_-HASH_* repeat @@ -478,7 +478,7 @@ updateCategoryTableForDomain(cname,category) == for [a,:b] in encodeCategoryAlist(cname,domainEntry) repeat HPUT(_*HASCATEGORY_-HASH_*,[cname,:a],b) $doNotCompressHashTableIfTrue = true => _*HASCATEGORY_-HASH_* - compressHashTable _*HASCATEGORY_-HASH_* + -- compressHashTable _*HASCATEGORY_-HASH_* clearCategoryTable($cname) == MAPHASH('clearCategoryTable1,_*HASCATEGORY_-HASH_*) |