diff options
author | dos-reis <gdr@axiomatics.org> | 2008-11-03 19:15:35 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-11-03 19:15:35 +0000 |
commit | 431bfaa2ee046f519715d1aa51b74f05eba74f87 (patch) | |
tree | c1ef303d3f3d5e2ceb1f1c619575128eda638bc0 /src/interp/br-op1.boot | |
parent | a12a4527c1d48988f48b4656c3a46ab91ab4e5e2 (diff) | |
download | open-axiom-431bfaa2ee046f519715d1aa51b74f05eba74f87.tar.gz |
* interp/br-data.boot: Remove uses of BOUNDP.
* interp/br-op1.boot: Likewise.
* interp/c-doc.boot: Likewise.
* interp/functor.boot: Likewise.
* interp/category.boot: Likewise.
* interp/g-cndata.boot: Likewise.
* interp/i-util.boot: Likewise.
* interp/lisplib.boot: Likewise.
* interp/mark.boot: Likewise.
* interp/wi1.boot: Likewise.
* interp/wi2.boot: Likewise.
Diffstat (limited to 'src/interp/br-op1.boot')
-rw-r--r-- | src/interp/br-op1.boot | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/interp/br-op1.boot b/src/interp/br-op1.boot index 1f9825bb..38f83e2f 100644 --- a/src/interp/br-op1.boot +++ b/src/interp/br-op1.boot @@ -697,11 +697,6 @@ htSayExpose(op,flag) == dbShowOperationsFromConform(htPage,which,opAlist) == --branch in with lists $groupChoice := nil conform := htpProperty(htPage,'conform) - --prepare opAlist for possible filtering of groups - if null BOUNDP '$topicHash then - $topicHash := MAKE_-HASHTABLE 'ID - for [x,:c] in '((extended . 0) (basic . 1) (hidden . 2)) repeat - HPUT($topicHash,x,c) if domform := htpProperty(htPage,'domname) then $conformsAreDomains : local := true reduceOpAlistForDomain(opAlist,domform,conform) @@ -747,6 +742,8 @@ reduceOpAlistForDomain(opAlist,domform,conform) == item opAlist +$attributeArgs := nil + dbShowOperationLines(which,linelist) == --branch in with lines htPage := htInitPage(nil,nil) --create empty page opAlist := nil @@ -766,7 +763,7 @@ dbShowOperationLines(which,linelist) == --branch in with lines 'expandAttributes htpSetProperty(htPage,expandProperty,'strings) dbResetOpAlistCondition(htPage,which,opAlist) - if which = '"attribute" and BOUNDP '$attributeArgs and $attributeArgs then + if which = '"attribute" and $attributeArgs then --code needed to handle commutative("*"); called from aPage --must completely expand the opAlist then check for those with --arguments equal to $attributeArgs |