aboutsummaryrefslogtreecommitdiff
path: root/src/interp/category.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-05-17 03:02:43 +0000
committerdos-reis <gdr@axiomatics.org>2010-05-17 03:02:43 +0000
commitb04728250962a67b923ed71237f6145e3d594255 (patch)
tree274fdad71c27e43669ec96d5dbe118498d0830de /src/interp/category.boot
parent103781c30e982fd28102d9268c2fb23863a1f971 (diff)
downloadopen-axiom-b04728250962a67b923ed71237f6145e3d594255.tar.gz
* interp/as.boot: Clean up.
* interp/br-util.boot: Likewise. * interp/category.boot: Likewise. * interp/compiler.boot: Likewise. * interp/define.boot: Likewise. * interp/modemap.boot: Likewise. * interp/wi2.boot: Likewise.
Diffstat (limited to 'src/interp/category.boot')
-rw-r--r--src/interp/category.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/category.boot b/src/interp/category.boot
index beabe110..c927d69f 100644
--- a/src/interp/category.boot
+++ b/src/interp/category.boot
@@ -108,7 +108,7 @@ mkCategory(domainOrPackage,sigList,attList,domList,PrincipalAncestor) ==
else s for s in sigList]
NewLocals:= nil
for s in sigList repeat
- NewLocals:= union(NewLocals,Prepare CADAR s) where
+ NewLocals:= union(NewLocals,Prepare s.mmTarget) where
Prepare u == "union"/[Prepare2 v for v in u]
Prepare2 v ==
v is "$" => nil