diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-09-03 17:00:24 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-09-03 17:00:24 +0000 |
| commit | 4e907523336834456ad62125c43131b19719d01c (patch) | |
| tree | fa76d90cdac502c0f99d0fe9cd50fb54257911ee /src/interp/c-util.boot | |
| parent | 7073e471a7b732854ad3cbc972615c8c3deefa61 (diff) | |
| download | open-axiom-4e907523336834456ad62125c43131b19719d01c.tar.gz | |
* interp/property.lisp: Remove unused codes.
* interp/g-util.boot (superType): If domain is $ then use current
information.
* interp/daase.lisp: Tidy.
* interp/c-util.boot (extendsCategoryForm): Temporarily disable
uses of information not coming from on-the-fly category compilation.
* interp/br-data.boot (getParentsFor): Change first parameter to a DB.
Adjust callers.
* algebra/Makefile.in: Adjust dependencies.
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index ecc72c79..ad681ddc 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1027,13 +1027,13 @@ extendsCategoryForm(domain,form,form') == domain = "$" and form = $definition => extendsCategoryForm(domain, $currentCategoryBody, form') isCategoryForm(form,$EmptyEnvironment) => - -- If we have an existing definition for this category, use it. - (db := constructorDB form.op) and loadDB db => - form' is ['SIGNATURE,op,types,:.] => assoc([op,args],dbOperations db) - form' is ['ATTRIBUTE,a] => assoc(a,dbAttributes db) - subst := pairList(dbConstructorForm(db).args,form.args) - or/[extendsCategoryForm(domain,applySubst(subst,cat),form') - for [cat,:.] in dbAncestors db] + -- -- If we have an existing definition for this category, use it. + -- (db := constructorDB form.op) and loadDB db => + -- form' is ['SIGNATURE,op,types,:.] => assoc([op,args],dbOperations db) + -- form' is ['ATTRIBUTE,a] => assoc(a,dbAttributes db) + -- subst := pairList(dbConstructorForm(db).args,form.args) + -- or/[extendsCategoryForm(domain,applySubst(subst,cat),form') + -- for [cat,:.] in dbAncestors db] -- Otherwise constructs the associated domain shell formVec:=(compMakeCategoryObject(form,$e)).expr --Must be $e to pick up locally bound domains |