adapt to mkvi

1 files changed, 21 insertions, 21 deletions

diff --git a/tex/context/third/letterspace/t-letterspace.mkiv b/tex/context/third/letterspace/t-letterspace.mkvi
index 03c2e0d..f84b509 100644
--- a/tex/context/third/letterspace/t-letterspace.mkiv
+++ b/tex/context/third/letterspace/t-letterspace.mkvi
@@ -46,32 +46,32 @@
 %D You’ll have to thank him if it works and blame me if it doesn’t.
 
 \appendtoks
-  \setuevalue{\currentletterspace        }{\doletterspace[\currentletterspace]}%
-  \setuevalue{\e!start\currentletterspace}{\dostartletterspace[\currentletterspace]}%
-  \setuevalue{\e!stop \currentletterspace}{\dostopletterspace}%
+  \setuevalue{\currentletterspace        }{\letterspace_cmd[\currentletterspace]}%
+  \setuevalue{\e!start\currentletterspace}{\letterspace_env_start[\currentletterspace]}%
+  \setuevalue{\e!stop \currentletterspace}{\letterspace_env_stop}%
 \to \everydefineletterspace
 
 \definecharacterkerning [letterspace:current]
 
-\unexpanded\def\doletterspace[#1]{%
-  \edef\currentletterspace{#1}%
-  \dosingleempty\dodoletterspace%
+\unexpanded\def\letterspace_cmd[#id]{%
+  \edef\currentletterspace{#id}%
+  \dosingleempty\letterspace_cmd_parameters%
 }
 
-\def\dodoletterspace[#1]{%
+\def\letterspace_cmd_parameters[#parms]{%
   \iffirstargument
-    \doifassignmentelse{#1}{%
-      \setupletterspace[\currentletterspace][#1]%
+    \doifassignmentelse{#parms}{%
+      \setupletterspace[\currentletterspace][#parms]%
     }\relax
   \fi
-  \dododoletterspace%
+  \letterspace_cmd_content%
 }
 
 \definefontfeature [letterspace:kerning] [kern=yes]
 \def\letterspace_truevalues{true,yep,yes}
 
-\def\dododoletterspace#1{%
-  \def\currentobject{#1}%
+\def\letterspace_cmd_content#obj{%
+  \def\currentobject{#obj}%
   \dontleavehmode
   \setupcharacterkerning[letterspace:current][factor=\letterspaceparameter{factor}]%
   \def\letterspace_setstuff{%
@@ -107,8 +107,8 @@
 %D token being anything else -- \type{\letterspace} will proceed
 %D without changing anything.
 
-\def\doifnextspace#1{%
-  \def\!!string{#1}%
+\def\doifnextspace#tok{%
+  \def\!!string{#tok}%
   \futurelet\nexttoken\inspectnexttoken%
 }
 
@@ -127,19 +127,19 @@
 %D The \type{\[start|stop]letterspace} environment is provided
 %D for sake of completeness.
 
-\unexpanded\def\dostartletterspace[#1]{%
-  \edef\currentletterspace{#1}%
-  \dosingleempty\dodostartletterspace%
+\unexpanded\def\letterspace_env_start[#id]{%
+  \edef\currentletterspace{#id}%
+  \dosingleempty\letterspace_env_start_indeed%
 }
 
-\def\dodostartletterspace[#1]{%
+\def\letterspace_env_start_indeed[#parms]{%
   \iffirstargument
-    \setupletterspace[\currentletterspace][#1]%
+    \setupletterspace[\currentletterspace][#parms]%
   \fi
-  \dododoletterspace\bgroup%
+  \letterspace_cmd_content\bgroup%
 }
 
-\let\dostopletterspace\egroup
+\let\letterspace_env_stop\egroup
 
 %D \macros
 %D    {setupletterspace}