From f9c684eb9d7c2d7498561e73219d22a94870e659 Mon Sep 17 00:00:00 2001
From: Andreas Scherer <andreas_tex@freenet.de>
Date: Mon, 4 Sep 2023 14:50:17 +0000
Subject: [PATCH] [WEB] Fix typo in TANGLE as in WEAVE.

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

git-svn-id: svn://tug.org/texlive/trunk/Build/source@68168 c570f23f-e606-0410-a88d-b1316a301751
---
 texk/web2c/ChangeLog | 4 ++++
 texk/web2c/tangle.ch | 6 ++++++
 2 files changed, 10 insertions(+)

diff --git a/texk/web2c/ChangeLog b/texk/web2c/ChangeLog
index 486e2fe4dc..3664c9e6bb 100644
--- a/texk/web2c/ChangeLog
+++ b/texk/web2c/ChangeLog
@@ -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@t-lab.opal.ne.jp>
 
 	* {tangle,dvicopy,dvitype,gftodvi,gftopk,gftype,mft,
diff --git a/texk/web2c/tangle.ch b/texk/web2c/tangle.ch
index abd35170dd..644373e992 100644
--- a/texk/web2c/tangle.ch
+++ b/texk/web2c/tangle.ch
@@ -202,6 +202,12 @@ rewrite (Pascal_file, pascal_name);
       begin while not eoln(f) do vgetc(f);
 @z
 
+@x [31] Fix typo as in weave.web.
+procedure error; {prints '\..' and location of error message}
+@y
+procedure error; {prints `\..' and location of error message}
+@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