From e694e02b3c8e9ae322df7440a29c3011a11503e7 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 2 May 2011 10:53:56 +0000 Subject: More cleanups --- src/interp/define.boot | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/interp/define.boot') 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 -- cgit v1.2.3