aboutsummaryrefslogtreecommitdiff
path: root/src/interp/topics.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/topics.boot')
-rw-r--r--src/interp/topics.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/topics.boot b/src/interp/topics.boot
index de87df49..6310986c 100644
--- a/src/interp/topics.boot
+++ b/src/interp/topics.boot
@@ -239,7 +239,7 @@ transferClassCodes(conform,opAlist) ==
transferCodeCon(con,opAlist) ==
for pair in getConstructorDocumentationFromDB con
| FIXP (code := myLastAtom pair) repeat
- u := ASSOC(QCAR pair,opAlist) => lastNode(u).rest := code
+ u := ASSOC(pair.op,opAlist) => lastNode(u).rest := code
--=======================================================================
-- Filter Operation by Topic