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