diff options
author | dos-reis <gdr@axiomatics.org> | 2011-04-19 18:14:50 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-04-19 18:14:50 +0000 |
commit | faaf19e1912ba48e9fbd195d2b90c4e205c87538 (patch) | |
tree | 18a81dba1f12285383ba73beaeb8febb6606ea37 /src/interp/br-op2.boot | |
parent | 9430f000bbcedcd6f0edbe1c4852cb2b51c50ccc (diff) | |
download | open-axiom-faaf19e1912ba48e9fbd195d2b90c4e205c87538.tar.gz |
cleanup
Diffstat (limited to 'src/interp/br-op2.boot')
-rw-r--r-- | src/interp/br-op2.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/br-op2.boot b/src/interp/br-op2.boot index 399c58fd..3862174b 100644 --- a/src/interp/br-op2.boot +++ b/src/interp/br-op2.boot @@ -304,7 +304,7 @@ whoUses(opSigList,conform) == $conname : local := first conform domList := getUsersOfConstructor $conname hash := MAKE_-HASH_-TABLE() - for name in allConstructors() | MEMQ(name,domList) repeat + for name in allConstructors() | symbolMember?(name,domList) repeat $infovec : local := dbInfovec name null $infovec => 'skip --category template := $infovec . 0 @@ -312,7 +312,7 @@ whoUses(opSigList,conform) == opacc := nil for i in 7..maxIndex template repeat item := template . i - item isnt [n,:op] or not MEMQ(op,opList) => 'skip + item isnt [n,:op] or not symbolMember?(op,opList) => 'skip index := n numvec := getCodeVector() numOfArgs := numvec . index |