diff options
Diffstat (limited to 'src/interp/br-data.boot')
| -rw-r--r-- | src/interp/br-data.boot | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot index 8d8e7635..1f182810 100644 --- a/src/interp/br-data.boot +++ b/src/interp/br-data.boot @@ -36,9 +36,6 @@ import bc_-util import nruncomp namespace BOOT -lefts u == - [x for [x,:.] in entries _*HASCATEGORY_-HASH_* | rest x = u] - --============================================================================ -- Build Library Database (libdb.text,...) --============================================================================ @@ -583,7 +580,7 @@ ancestorsAdd(pred,form) == --called by ancestorsRecur domainsOf(conform,domname,:options) == $hasArgList := IFCAR options conname := opOf conform - u := [key for [key,:.] in entries _*HASCATEGORY_-HASH_* + u := [key for [key,:.] in entries $HasCategoryTable | key is [anc,: =conname]] --u is list of pairs (a . b) where b() = conname --we sort u then replace each b by the predicate for which this is true |