texlive[60320] Master/texmf-dist: tokcycle (25aug21)

[commits+karl at tug.org]

Revision: 60320
          http://tug.org/svn/texlive?view=revision&revision=60320
Author:   karl
Date:     2021-08-25 22:04:31 +0200 (Wed, 25 Aug 2021)
Log Message:
-----------
tokcycle (25aug21)

Modified Paths:
--------------
    trunk/Master/texmf-dist/doc/generic/tokcycle/tokcycle-doc.pdf
    trunk/Master/texmf-dist/doc/generic/tokcycle/tokcycle-examples.pdf
    trunk/Master/texmf-dist/tex/generic/tokcycle/tokcycle.tex

Modified: trunk/Master/texmf-dist/doc/generic/tokcycle/tokcycle-doc.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/doc/generic/tokcycle/tokcycle-examples.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/tex/generic/tokcycle/tokcycle.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/tokcycle/tokcycle.tex	2021-08-25 13:55:11 UTC (rev 60319)
+++ trunk/Master/texmf-dist/tex/generic/tokcycle/tokcycle.tex	2021-08-25 20:04:31 UTC (rev 60320)
@@ -1,7 +1,7 @@
 \def\tcname                     {tokcycle}
-\def\tcver                        {1.41}
+\def\tcver                        {1.42}
 %
-\def\tcdate                    {2021/06/25}
+\def\tcdate                    {2021/08/25}
 %
 % Author     : Steven B Segletes, Christian Tellechea (contributor)
 % Maintainer : Steven B Segletes
@@ -112,7 +112,7 @@
   \the\tc at tok}
 \long\def\can at absorb@#1{\tctestifnum{\count at stringtoks{#1}>1}%
   {\tctestifx{\endtokcycraw#1}{#1}{\backslashcmds#1\@tokcycle}}%
-  {\trapactives#1\tc at trapescape#1{\tc at escapecytoks}{\can at absorb@@#1}}}
+  {\trapactives#1\tc at trapescape#1{\tc at escapecytoks\empty}{\can at absorb@@#1}}}
 \long\def\can at absorb@@#1{\let\@tmp=#1\test at ifmacro\@tmp{\implicittokfalse
   \@macT#1}{\trapimplicitegrp#1\implicitgrpfork#1}\@tokcycle}
 %CONVERT NEXT (SPACE OR BEGIN-GROUP) TOKEN TO STRING
@@ -151,7 +151,7 @@
   \@implicitgroupingcase\or\addcytoks{#1}\or\@chrT{#1}\fi}{\@chrT#1}}
 % SET UP ESCAPE MECHANISM
 \def\settcEscapechar#1{\let\@tcEscapeptr#1%
-  \def\tc at escapecytoks##1#1{\addcytoks{##1}\@tokcycle}}
+  \def\tc at escapecytoks##1#1{\addcytoks[1]{##1}\@tokcycle}}
 \def\tc at trapescape#1{\tctestifx{\@tcEscapeptr#1}}
 % TRAP CAT-6
 \long\def\trapcatSIX#1{\tctestifcatnx#1\relax{}{\trapcatSIXb#1}}
@@ -337,3 +337,7 @@
       - Bug fix in \tcpopliteralappto (\@tmp interfered with itself). Altered,
         substituting \@@tmp.
 
+v1.42 2021/08/25
+      - Bug fix in \tc at escapecytoks (if escaped text was a single brace group, the
+        braces were lost)
+