diff options
Diffstat (limited to 'src/interp/topics.boot')
-rw-r--r-- | src/interp/topics.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/topics.boot b/src/interp/topics.boot index f8d84dac..5c3dcfc3 100644 --- a/src/interp/topics.boot +++ b/src/interp/topics.boot @@ -109,14 +109,14 @@ mkTopicHashTable() == --given $groupAssoc = ((extended . --initialize table of topic classes $topicHash := MAKE_-HASHTABLE 'ID --$topicHash has keys: topic and value: index for [x,:c] in $groupAssoc repeat HPUT($topicHash,x,c) - $topicIndex := CDR LAST $groupAssoc + $topicIndex := rest LAST $groupAssoc --replace each property list by a topic code --store under each construct an OR of all codes for con in HKEYS $conTopicHash repeat conCode := 0 for pair in HGET($conTopicHash,con) repeat - RPLACD(pair,code := topicCode CDR pair) + RPLACD(pair,code := topicCode rest pair) conCode := LOGIOR(conCode,code) HPUT($conTopicHash,con, [['constructor,:conCode],:HGET($conTopicHash,con)]) @@ -198,7 +198,7 @@ tdAdd(con,hash) == v := HGET($conTopicHash,con) u := addTopic2Documentation(con,v) --u := getConstructorDocumentationFromDB con - for pair in u | FIXP (code := myLastAtom pair) and (op := CAR pair) ~= 'construct repeat + for pair in u | FIXP (code := myLastAtom pair) and (op := first pair) ~= 'construct repeat for x in (names := code2Classes code) repeat HPUT(hash,x,insert(op,HGET(hash,x))) tdPrint hash == |