aboutsummaryrefslogtreecommitdiff
path: root/src/interp/interop.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/interop.boot')
-rw-r--r--src/interp/interop.boot6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/interop.boot b/src/interp/interop.boot
index bf0e614b..27095576 100644
--- a/src/interp/interop.boot
+++ b/src/interp/interop.boot
@@ -118,7 +118,7 @@ runOldAxiomFunctor(:allArgs) ==
[:args,env] := allArgs
getConstructorKindFromDB env = "category" =>
[$oldAxiomPreCategoryDispatch,: [env, :args]]
- dom:=APPLY(env, args)
+ dom:=apply(env, args)
makeOldAxiomDispatchDomain dom
makeLazyOldAxiomDispatchDomain domform ==
@@ -283,8 +283,8 @@ instantiate domenv ==
-- fn := SYMBOL_-FUNCTION functor
-- SETF(SYMBOL_-FUNCTION functor, ofn)
-- PUT(functor, 'instantiate, fn)
--- domvec := APPLY(fn, args)
- domvec := APPLY(functor, args)
+-- domvec := apply(fn, args)
+ domvec := apply(functor, args)
oldDom.first := $oldAxiomDomainDispatch
oldDom.rest := [second oldDom,: domvec]
oldDom