diff options
Diffstat (limited to 'src/interp/topics.boot')
| -rw-r--r-- | src/interp/topics.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/topics.boot b/src/interp/topics.boot index 31c4bfb2..191606aa 100644 --- a/src/interp/topics.boot +++ b/src/interp/topics.boot @@ -161,7 +161,7 @@ topicCode lst == u := [y for x in lst] where y() == rename := LASSOC(x,$topicSynonyms) => rename x - if null intersection('(basic extended hidden),u) then u := ['extended,:u] + if setIntersection('(basic extended hidden),u) = nil then u := ['extended,:u] bitIndexList := nil for x in removeDuplicates u repeat bitIndexList := [fn x,:bitIndexList] where fn x == |