diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-02 09:28:50 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-02 09:28:50 +0000 |
| commit | 6835b7615420cbb3d0db15c2a5ab1c5785ff40dd (patch) | |
| tree | 3679cc4ae483ac59cce2649bbf346fd02787fa47 /src/interp/database.boot | |
| parent | 927875aade5720ec0e0cfbe741988011a604678f (diff) | |
| download | open-axiom-6835b7615420cbb3d0db15c2a5ab1c5785ff40dd.tar.gz | |
cleanup
Diffstat (limited to 'src/interp/database.boot')
| -rw-r--r-- | src/interp/database.boot | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/interp/database.boot b/src/interp/database.boot index f52e8fcc..7ce512c8 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -34,6 +34,7 @@ import nlib import g_-cndata +import c_-util import clam import cattable import compat @@ -175,7 +176,7 @@ augLisplibModemapsFromCategory(form is [op,:argl],body,signature) == form:= applySubst(sl,form) body:= applySubst(sl,body) signature:= applySubst(sl,signature) - opAlist:= applySubst(sl,vectorRef($domainShell,1)) or return nil + opAlist:= applySubst(sl,categoryExports $domainShell) or return nil nonCategorySigAlist:= mkAlistOfExplicitCategoryOps substitute("*1","$",body) domainList:= @@ -783,11 +784,6 @@ displayHiddenConstructors() == --% -++ Return the list of modemaps exported by the category object `c'. -++ The format of modemap is as found in category objects. -getCategoryExports: %Shell -> %List %Modemap -getCategoryExports c == c.1 - ++ Return the list of category attribute info for the category object `c'. ++ A category attribute info is pair of attribute-predicate. getCategoryAttributes: %Shell -> %List %Form |