diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-27 07:41:49 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-27 07:41:49 +0000 |
| commit | 320d0c5d61b2fc8cb6780b9c7e426a76e126307a (patch) | |
| tree | e593716c7f294b29fbfe4dd1f71758453f9b3586 /src/interp/c-util.boot | |
| parent | b34b11df886a81fe707bb09677c1ecd9715dbe70 (diff) | |
| download | open-axiom-320d0c5d61b2fc8cb6780b9c7e426a76e126307a.tar.gz | |
* interp/br-util.boot (dbInfovec): Move to c-util.boot
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index 9cd39a91..f6a0ede4 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -46,12 +46,22 @@ module c_-util where getSuccessEnvironment: (%Form,%Env) -> %Env getInverseEnvironment: (%Form,%Env) -> %Env giveVariableSomeValue: (%Symbol,%Mode,%Env) -> %Env - + -- functor data manipulation + dbInfovec: %Constructor -> %Maybe %FunctorData --% $SetCategory == '(SetCategory) +--% + +dbInfovec name == + getConstructorKindFromDB name is "category" => nil + asharpConstructorFromDB name => nil + loadLibIfNotLoaded(name) + u := property(name,'infovec) => u + nil + --% ++ Token to indicate that a function body should be ignored. |