[CWEB] Permit '$' in C identifiers.

See the similar code line in ctangle.w. git-svn-id: svn://tug.org/texlive/trunk/Build/source@67106 c570f23f-e606-0410-a88d-b1316a301751
TeX-Live · May 14, 2023 · cad4232 · cad4232
1 parent fe87318
commit cad4232
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/texk/web2c/cwebdir/ChangeLog b/texk/web2c/cwebdir/ChangeLog
@@ -1,7 +1,8 @@
 2023-05-14  Andreas Scherer  <https://ascherer.github.io>
 
 	* ctwill-mini.ch,
-	* ctwill-w2c.ch: Reshuffle fix for CTWILL.
+	* ctwill-w2c.ch: Reshuffle fix for CTWILL;
+	permit '$' in C identifiers (from ctangle.w).
 
 2023-05-13  Andreas Scherer  <https://ascherer.github.io>
 

diff --git a/texk/web2c/cwebdir/ctwill-w2c.ch b/texk/web2c/cwebdir/ctwill-w2c.ch
@@ -1580,7 +1580,7 @@ new_meaning(
 { char *first=id_first;
   while (xisspace(*first)) first++;
   loc=first;
-  while (xisalpha(*loc)||xisdigit(*loc)||*loc=='_') loc++;
+  while (xisalpha(*loc)||xisdigit(*loc)||isxalpha(*loc)) loc++;
   if (*loc++!=' ')
     err_print(_("! Identifier in meaning should be followed by space"));
   else {@+ int n=0;