diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-02 10:53:56 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-02 10:53:56 +0000 |
| commit | e694e02b3c8e9ae322df7440a29c3011a11503e7 (patch) | |
| tree | 5dbeebcf26c3be930421b77d688384f0e19f8f5b /src/interp/define.boot | |
| parent | 6835b7615420cbb3d0db15c2a5ab1c5785ff40dd (diff) | |
| download | open-axiom-e694e02b3c8e9ae322df7440a29c3011a11503e7.tar.gz | |
More cleanups
Diffstat (limited to 'src/interp/define.boot')
| -rw-r--r-- | src/interp/define.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 6d3656a6..599e9ca4 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -722,7 +722,7 @@ mkCategoryPackage(form is [op,:argl],cat,def) == x is ['DEF,y,:.] => [y,:oplist] fn(x.args,fn(x.op,oplist)) catvec := eval mkEvalableCategoryForm form - fullCatOpList := vectorRef(JoinInner([catvec],$e),1) + fullCatOpList := categoryExports JoinInner([catvec],$e) catOpList := [['SIGNATURE,op1,sig] for [[op1,sig],:.] in fullCatOpList | assoc(op1,capsuleDefAlist)] @@ -930,7 +930,7 @@ compDefineFunctor1(df is ['DEF,form,signature,nils,body], [ds,.,$e]:= compMakeCategoryObject(target,$e) or return stackAndThrow('" cannot produce category object: %1pb",[target]) $compileExportsOnly => - compDefineExports(form, vectorRef(ds,1), signature',$e) + compDefineExports(form, categoryExports ds, signature',$e) $domainShell: local := COPY_-SEQ ds attributeList := vectorRef(ds,2) --see below under "loadTimeAlist" $condAlist: local := nil |