From 9bf4d34f20b79b051730cf9536d08a8c07c54b02 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 24 Nov 2011 20:22:29 +0000
Subject: 	* interp/define.boot: Tidy. 	* interp/functor.boot:
 Likewise. 	* interp/g-util.boot: Likewise. 	* interp/slam.boot:
 Likewise. 	* interp/topics.boot: Likewise. 	* interp/trace.boot:
 Likewise.

---
 src/interp/topics.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/topics.boot')

diff --git a/src/interp/topics.boot b/src/interp/topics.boot
index 191606aa..d30a5eaf 100644
--- a/src/interp/topics.boot
+++ b/src/interp/topics.boot
@@ -254,7 +254,7 @@ filterByTopic(opAlist,topic) ==
 
 listOfTopics(conname) ==
   doc := getConstructorDocumentationFromDB conname
-  u := ASSOC('constructor,doc) or return nil
+  u := symbolTarget('constructor,doc) or return nil
   code := myLastAtom u
 --not integer? code => nil
   mySort [key for [key,:val] in entries $topicHash | LOGBITP(val,code)]
-- 
cgit v1.2.3