diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-18 17:10:22 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-18 17:10:22 +0000 |
| commit | 1c30041fd6a1115dbf0ed7373e570d6ca0ef81a9 (patch) | |
| tree | 7d3a938437ed91f69eb1ef52eae19a931ac5a0ac /src/interp/c-util.boot | |
| parent | 44936f3d978b3a47cc67a3a51fe43030b24e0a9e (diff) | |
| download | open-axiom-1c30041fd6a1115dbf0ed7373e570d6ca0ef81a9.tar.gz | |
* interp/c-util.boot: Use category accessors.
* interp/category.boot: Likewise.
* interp/modemap.boot: Likewise.
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index 54000fad..24a3a041 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1035,8 +1035,8 @@ extendsCategoryForm(domain,form,form') == assoc(substitute(domain,"$",[op,args]), substitute(domain,"$",categoryExports formVec)) form' is ["ATTRIBUTE",at] => - assoc(at,formVec.2) or - assoc(substitute(domain,"$",at),substitute(domain,"$",formVec.2)) + assoc(at,categoryAttributes formVec) or + assoc(substitute(domain,"$",at),substitute(domain,"$",categoryAttributes formVec)) form' is ["IF",:.] => true --temporary hack so comp won't fail -- Are we dealing with an Aldor category? If so use the "has" function ... # formVec = 1 => newHasTest(form,form') |