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 09bbc030..aee5e275 100644 --- a/src/interp/topics.boot +++ b/src/interp/topics.boot @@ -181,7 +181,7 @@ td con == tdAdd(con,hash) == v := HGET($conTopicHash,con) u := addTopic2Documentation(con,v) ---u := GETDATABASE(con,'DOCUMENTATION) +--u := getConstructorDocumentationFromDB con for pair in u | FIXP (code := myLastAtom pair) and (op := CAR pair) ^= 'construct repeat for x in (names := code2Classes code) repeat HPUT(hash,x,insert(op,HGET(hash,x))) @@ -221,7 +221,7 @@ transferClassCodes(conform,opAlist) == transferCodeCon(CAAR x,opAlist) transferCodeCon(con,opAlist) == - for pair in GETDATABASE(con,'DOCUMENTATION) + for pair in getConstructorDocumentationFromDB con | FIXP (code := myLastAtom pair) repeat u := ASSOC(QCAR pair,opAlist) => RPLACD(LASTNODE u,code) @@ -235,7 +235,7 @@ filterByTopic(opAlist,topic) == | FIXP (code := myLastAtom x) and LOGBITP(bitNumber,code)] listOfTopics(conname) == - doc := GETDATABASE(conname,'DOCUMENTATION) + doc := getConstructorDocumentationFromDB conname u := ASSOC('constructor,doc) or return nil code := myLastAtom u --null FIXP code => nil |