diff options
author | dos-reis <gdr@axiomatics.org> | 2008-04-13 06:22:18 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-04-13 06:22:18 +0000 |
commit | c5659a8580de5b531891c6703465c84add9fbb1b (patch) | |
tree | 60966651b64626e365cd158a89cd41a9028ea8a9 /src/interp/interop.boot | |
parent | 3c748c0ab1f5119528ae3ae41cc144371b1b375c (diff) | |
download | open-axiom-c5659a8580de5b531891c6703465c84add9fbb1b.tar.gz |
Various cleanups.
Diffstat (limited to 'src/interp/interop.boot')
-rw-r--r-- | src/interp/interop.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/interop.boot b/src/interp/interop.boot index 63ce4fd6..a2cc3301 100644 --- a/src/interp/interop.boot +++ b/src/interp/interop.boot @@ -115,7 +115,7 @@ CompStrToString(str) == runOldAxiomFunctor(:allArgs) == [:args,env] := allArgs - GETDATABASE(env, 'CONSTRUCTORKIND) = 'category => + getConstructorKindFromDB env = "category" => [$oldAxiomPreCategoryDispatch,: [env, :args]] dom:=APPLY(env, args) makeOldAxiomDispatchDomain dom @@ -123,7 +123,7 @@ runOldAxiomFunctor(:allArgs) == makeLazyOldAxiomDispatchDomain domform == attribute? domform => [$attributeDispatch, domform, hashString(SYMBOL_-NAME domform)] - GETDATABASE(opOf domform, 'CONSTRUCTORKIND) = 'category => + getConstructorKindFromDB opOf domform = "category" => [$oldAxiomPreCategoryDispatch,: domform] dd := [$lazyOldAxiomDomainDispatch, hashTypeForm(domform,0), domform] NCONC(dd,dd) -- installs back pointer to head of domain. |