Fix spelling.

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)