diff options
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. |