texlive[68168] Build/source/texk/web2c: [WEB] Fix typo in TANGLE as

[commits+ascherer at tug.org]

Revision: 68168
          http://tug.org/svn/texlive?view=revision&revision=68168
Author:   ascherer
Date:     2023-09-04 16:50:17 +0200 (Mon, 04 Sep 2023)
Log Message:
-----------
[WEB] Fix typo in TANGLE as in WEAVE.

Bug report https://tug.org/pipermail/tex-k/2021-June/003571.html

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ChangeLog
    trunk/Build/source/texk/web2c/tangle.ch

Modified: trunk/Build/source/texk/web2c/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ChangeLog	2023-09-03 23:42:59 UTC (rev 68167)
+++ trunk/Build/source/texk/web2c/ChangeLog	2023-09-04 14:50:17 UTC (rev 68168)
@@ -1,3 +1,7 @@
+2023-09-04  Andreas Scherer  <https://ascherer.github.io>
+
+	* tangle.ch: Fix typo as in weave.web.
+
 2023-09-03  TANAKA Takuji  <ttk at t-lab.opal.ne.jp>
 
 	* {tangle,dvicopy,dvitype,gftodvi,gftopk,gftype,mft,

Modified: trunk/Build/source/texk/web2c/tangle.ch
===================================================================
--- trunk/Build/source/texk/web2c/tangle.ch	2023-09-03 23:42:59 UTC (rev 68167)
+++ trunk/Build/source/texk/web2c/tangle.ch	2023-09-04 14:50:17 UTC (rev 68168)
@@ -202,6 +202,12 @@
       begin while not eoln(f) do vgetc(f);
 @z
 
+ at x [31] Fix typo as in weave.web.
+procedure error; {prints '\..' and location of error message}
+ at y
+procedure error; {prints `\..' and location of error message}
+ at z
+
 @x [34] Fix `jump_out'.
 and jumps out of the program. This is the only non-local |goto| statement
 in \.{TANGLE}. It is used when no recovery from a particular error has