aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/interp/define.boot2
-rw-r--r--src/interp/nruncomp.boot6
-rw-r--r--src/interp/nrunopt.boot4
-rw-r--r--src/interp/wi2.boot2
4 files changed, 7 insertions, 7 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot
index b4f954e9..3ffbbee8 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -598,7 +598,7 @@ compDefineFunctor1(df is ['DEF,form,signature,$functorSpecialCases,body],
-->--these globals used by NRTmakeCategoryAlist, set by NRTsetVector4Part1
$condAlist: local := nil
$uncondAlist: local := nil
--->>-- next global initialized here, reset by NRTbuildFunctor
+-->>-- next global initialized here, reset by buildFunctor
$NRTslot1PredicateList: local :=
REMDUP [CADR x for x in attributeList]
-->>-- next global initialized here, used by NRTgenAttributeAlist (NRUNOPT)
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot
index 115e57f9..287d5bc8 100644
--- a/src/interp/nruncomp.boot
+++ b/src/interp/nruncomp.boot
@@ -69,7 +69,7 @@ $killOptimizeIfTrue := false
-----------------------------NEW buildFunctor CODE-----------------------------
NRTaddDeltaCode() ==
---NOTES: This function is called from NRTbuildFunctor to initially
+--NOTES: This function is called from buildFunctor to initially
-- fill slots in $template. The $template so created is stored in the
-- NRLIB. On load, makeDomainTemplate is called on this $template to
-- create a template which becomes slot 0 of the infovec for the constructor.
@@ -681,9 +681,9 @@ NRTaddToSlam([name,:argnames],shell) ==
args:= ['LIST,:ASSOCRIGHT $devaluateList]
addToConstructorCache(name,args,shell)
-changeDirectoryInSlot1() == --called by NRTbuildFunctor
+changeDirectoryInSlot1() == --called by buildFunctor
--3 cases:
- -- if called inside NRTbuildFunctor, $NRTdeltaLength gives different locs
+ -- if called inside buildFunctor, $NRTdeltaLength gives different locs
-- otherwise called from compFunctorBody (all lookups are forwarded):
-- $NRTdeltaList = nil ===> all slot numbers become nil
$lisplibOperationAlist := [sigloc entry for entry in $domainShell.1] where
diff --git a/src/interp/nrunopt.boot b/src/interp/nrunopt.boot
index a4d10e00..d3fd3de2 100644
--- a/src/interp/nrunopt.boot
+++ b/src/interp/nrunopt.boot
@@ -248,10 +248,10 @@ makePrefixForm(u,op) ==
--=======================================================================
-- Generate Slot 3 Predicate Vector
--=======================================================================
-makePredicateBitVector pl == --called by NRTbuildFunctor
+makePredicateBitVector pl == --called by buildFunctor
if $insideCategoryPackageIfTrue then
pl := union(pl,$categoryPredicateList)
- $predGensymAlist := nil --bound by NRTbuildFunctor, used by optHas
+ $predGensymAlist := nil --bound by buildFunctor, used by optHas
for p in removeAttributePredicates pl repeat
pred := simpBool transHasCode p
atom pred => 'skip --skip over T and NIL
diff --git a/src/interp/wi2.boot b/src/interp/wi2.boot
index d0481570..df2d1d96 100644
--- a/src/interp/wi2.boot
+++ b/src/interp/wi2.boot
@@ -112,7 +112,7 @@ compDefineFunctor1(df, m,$e,$prefix,$formalArgList) ==
-->--these globals used by NRTmakeCategoryAlist, set by NRTsetVector4Part1
$condAlist: local := nil
$uncondAlist: local := nil
--->>-- next global initialized here, reset by NRTbuildFunctor
+-->>-- next global initialized here, reset by buildFunctor
$NRTslot1PredicateList: local :=
REMDUP [CADR x for x in attributeList]
-->>-- next global initialized here, used by NRTgenAttributeAlist (NRUNOPT)