diff options
author | dos-reis <gdr@axiomatics.org> | 2013-05-28 04:51:55 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2013-05-28 04:51:55 +0000 |
commit | fe6bf754bbe988a95e93b418f5a15f0c4244a493 (patch) | |
tree | 61324deaa8841dca96c5920c3600bd64b70dd4a1 /src/interp/c-util.boot | |
parent | 8266743dc86cbfb39cdad47b3d40f4d3bda9d34b (diff) | |
download | open-axiom-fe6bf754bbe988a95e93b418f5a15f0c4244a493.tar.gz |
Add DB parameter to compNoStacking
Diffstat (limited to 'src/interp/c-util.boot')
-rw-r--r-- | src/interp/c-util.boot | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index 3ba88514..bc0c6726 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -48,7 +48,7 @@ module c_-util where getInverseEnvironment: (%Form,%Env) -> %Env giveVariableSomeValue: (%Symbol,%Mode,%Env) -> %Env registerConstructor: (%Symbol,%Env) -> %Env - currentConstructor: %Env -> %Maybe %Symbol + currentDB: %Env -> %Maybe %Database -- functor data manipulation dbInfovec: %Symbol -> %Maybe %FunctorData @@ -813,9 +813,10 @@ isLiteral(x,e) == registerConstructor(x,e) == put('%compilerData,'%ctor,x,e) -++ Retrieve the name of the constructor definition being processed. -currentConstructor e == - get('%compilerData,'%ctor,e) +++ Retrieve the DB of the constructor definition being processed. +currentDB e == + ctor := get('%compilerData,'%ctor,e) => constructorDB ctor + nil makeLiteral: (%Symbol,%Env) -> %Thing makeLiteral(x,e) == |