diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-09 21:57:33 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 21:57:33 +0000 |
commit | f42883e3da3524177b4a8c6f42c8e7b1646a6265 (patch) | |
tree | 7802320c3cab01a11aa32fd87bf8ea00f265fd80 /src/interp/database.boot | |
parent | 37bce222d153e4b7b0c086b9c717435f4cdd2c77 (diff) | |
download | open-axiom-f42883e3da3524177b4a8c6f42c8e7b1646a6265.tar.gz |
More cleanups
Diffstat (limited to 'src/interp/database.boot')
-rw-r--r-- | src/interp/database.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/database.boot b/src/interp/database.boot index 92938d81..6c7c54c4 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -607,7 +607,7 @@ mkAlistOfExplicitCategoryOps target == op is [a] => a keyedSystemError("S2GE0016", ['"mkAlistOfExplicitCategoryOps",'"bad signature"]) - opList:= REMDUP ASSOCLEFT u + opList:= removeDuplicates ASSOCLEFT u [[x,:fn(x,u)] for x in opList] where fn(op,u) == u is [[a,:b],:c] => (a=op => [b,:fn(op,c)]; fn(op,c)) |