summaryrefslogtreecommitdiff
path: root/Build
diff options
context:
space:
mode:
authorAndreas Scherer <andreas_tex@freenet.de>2024-09-02 17:47:28 +0000
committerAndreas Scherer <andreas_tex@freenet.de>2024-09-02 17:47:28 +0000
commite86c04007dca3917e391e25265cb5663f8e92740 (patch)
tree35a50894a44ad2f51e64a985f51b89b6bbed81fd /Build
parenteb602f73f19afe3aff397339d59ee9a0b12b7f8c (diff)
[WEB] Flip two section names in the index.
git-svn-id: svn://tug.org/texlive/trunk@72170 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rw-r--r--Build/source/texk/web2c/ChangeLog19
-rw-r--r--Build/source/texk/web2c/bibtex.ch10
-rw-r--r--Build/source/texk/web2c/dvicopy.ch10
-rw-r--r--Build/source/texk/web2c/dvitype.ch10
-rw-r--r--Build/source/texk/web2c/gftodvi.ch10
-rw-r--r--Build/source/texk/web2c/gftopk.ch10
-rw-r--r--Build/source/texk/web2c/gftype.ch10
-rw-r--r--Build/source/texk/web2c/mft.ch4
-rw-r--r--Build/source/texk/web2c/patgen.ch16
-rw-r--r--Build/source/texk/web2c/pktogf.ch10
-rw-r--r--Build/source/texk/web2c/pktype.ch10
-rw-r--r--Build/source/texk/web2c/pltotf.ch10
-rw-r--r--Build/source/texk/web2c/pooltype.ch10
-rw-r--r--Build/source/texk/web2c/tangle.ch4
-rw-r--r--Build/source/texk/web2c/tftopl.ch34
-rw-r--r--Build/source/texk/web2c/vptovf.ch4
-rw-r--r--Build/source/texk/web2c/weave.ch4
17 files changed, 151 insertions, 34 deletions
diff --git a/Build/source/texk/web2c/ChangeLog b/Build/source/texk/web2c/ChangeLog
index 402e118fae2..a07228b4dd2 100644
--- a/Build/source/texk/web2c/ChangeLog
+++ b/Build/source/texk/web2c/ChangeLog
@@ -1,3 +1,22 @@
+2024-09-01 Andreas Scherer <https://ascherer.github.io>
+
+ * bibtex.ch,
+ * dvicopy.ch,
+ * dvitype.ch,
+ * gftodvi.ch,
+ * gftopk.ch,
+ * gftype.ch,
+ * mft.ch,
+ * patgen.ch,
+ * pktogf.ch,
+ * pktype.ch,
+ * pltotf.ch,
+ * pooltype.ch,
+ * tangle.ch,
+ * tftopl.ch,
+ * vptovf.ch,
+ * weave.ch: Flip two section names in the index.
+
2024-08-31 Andreas Scherer <https://ascherer.github.io>
* vftovp.ch: Fix sorting order of new named sections.
diff --git a/Build/source/texk/web2c/bibtex.ch b/Build/source/texk/web2c/bibtex.ch
index c8d566ee60b..b9661c65cdd 100644
--- a/Build/source/texk/web2c/bibtex.ch
+++ b/Build/source/texk/web2c/bibtex.ch
@@ -13,6 +13,12 @@
% 03/09/90 `int' is a bad variable name for C.
% (more recent changes in the ChangeLog)
+@x [0]
+\def\(#1){} % this is used to make section names sort themselves better
+@y
+\def\({} % this is used to make section names sort themselves better
+@z
+
% [0] Let bibtex.tex work with latest webmac (which defines \ET, hence
% making E active loses).
@x
@@ -104,7 +110,7 @@ begin
initialize;
print_ln(banner);@/
@y
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
begin
standard_input := stdin;
standard_output := stdout;
@@ -1633,7 +1639,7 @@ itself will get a new section number.
@y
@d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
procedure parse_arguments;
const n_options = 4; {Pascal won't count array lengths for us.}
var @!long_options: array[0..n_options] of getopt_struct;
diff --git a/Build/source/texk/web2c/dvicopy.ch b/Build/source/texk/web2c/dvicopy.ch
index 5b4ebbc5438..75b30d0f064 100644
--- a/Build/source/texk/web2c/dvicopy.ch
+++ b/Build/source/texk/web2c/dvicopy.ch
@@ -8,6 +8,12 @@
% Mar 20 91 THD Updated to dvicopy 1.2
% (more recent changes in the ChangeLog)
+@x [0] l.35
+\def\(#1){} % this is used to make section names sort themselves better
+@y
+\def\({} % this is used to make section names sort themselves better
+@z
+
@x [0] l.59 WEAVE: print changes only
\pageno=\contentspagenumber \advance\pageno by 1
@y
@@ -46,7 +52,7 @@ procedure initialize; {this procedure gets things started properly}
var @<Local variables for initialization@>@/
begin print_ln(banner);@/
@y
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
procedure initialize; {this procedure gets things started properly}
var @<Local variables for initialization@>@/
begin
@@ -536,7 +542,7 @@ by the index variable |option_index|.
@d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
procedure parse_arguments;
const n_options = 5; {Pascal won't count array lengths for us.}
var @!long_options: array[0..n_options] of getopt_struct;
diff --git a/Build/source/texk/web2c/dvitype.ch b/Build/source/texk/web2c/dvitype.ch
index c22c080a6de..d17904ff001 100644
--- a/Build/source/texk/web2c/dvitype.ch
+++ b/Build/source/texk/web2c/dvitype.ch
@@ -20,6 +20,12 @@
% 01/16/90 (SR) To version 3.2.
% (more recent changes in the ChangeLog)
+@x [0] l.29
+\def\(#1){} % this is used to make section names sort themselves better
+@y
+\def\({} % this is used to make section names sort themselves better
+@z
+
@x [0] l.32
\def\title{DVI$\,$\lowercase{type}}
@y
@@ -55,7 +61,7 @@ procedure initialize; {this procedure gets things started properly}
var i:integer; {loop index for initializations}
begin print_ln(banner);@/
@y
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
procedure initialize; {this procedure gets things started properly}
var i:integer; {loop index for initializations}
begin
@@ -535,7 +541,7 @@ Parse a Unix-style command line.
@d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
procedure parse_arguments;
const n_options = 8; {Pascal won't count array lengths for us.}
var @!long_options: array[0..n_options] of getopt_struct;
diff --git a/Build/source/texk/web2c/gftodvi.ch b/Build/source/texk/web2c/gftodvi.ch
index 90ecd85da2a..5b895f02ae0 100644
--- a/Build/source/texk/web2c/gftodvi.ch
+++ b/Build/source/texk/web2c/gftodvi.ch
@@ -35,6 +35,12 @@
% Revision 0.3 84/11/17 23:51:56 richards
% Base version for GFtoDVI Version 0.3
+@x [0] l.29
+\def\(#1){} % this is used to make section names sort themselves better
+@y
+\def\({} % this is used to make section names sort themselves better
+@z
+
@x [0] l.32
\def\title{GF$\,$\lowercase{to}$\,$DVI}
@y
@@ -77,7 +83,7 @@ procedure initialize; {this procedure gets things started properly}
const @<Constants in the outer block@>@/
type @<Types in the outer block@>@/
var @<Globals in the outer block@>@/
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
procedure initialize; {this procedure gets things started properly}
var @!i,@!j,@!m,@!n:integer; {loop indices for initializations}
begin
@@ -612,7 +618,7 @@ Parse a Unix-style command line.
@d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
procedure parse_arguments;
const n_options = 4; {Pascal won't count array lengths for us.}
var @!long_options: array[0..n_options] of getopt_struct;
diff --git a/Build/source/texk/web2c/gftopk.ch b/Build/source/texk/web2c/gftopk.ch
index 62af338db8e..f892e4ba309 100644
--- a/Build/source/texk/web2c/gftopk.ch
+++ b/Build/source/texk/web2c/gftopk.ch
@@ -11,6 +11,12 @@
% on the origin of fonts in both gf and pk formats. The program runs
% silently unless it is given the -v switch in the command line.
+@x [0] l.41
+\def\(#1){} % this is used to make section names sort themselves better
+@y
+\def\({} % this is used to make section names sort themselves better
+@z
+
@x [0] l.44
\def\title{GFtoPK}
@y
@@ -63,7 +69,7 @@ produced only when the \.{-v} command line flag is presented.
const @<Constants in the outer block@>@/
type @<Types in the outer block@>@/
var @<Globals in the outer block@>@/
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
procedure initialize; {this procedure gets things started properly}
var i:integer; {loop index for initializations}
begin
@@ -414,7 +420,7 @@ Parse a Unix-style command line.
@d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
@d do_nothing == {empty statement}
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
procedure parse_arguments;
const n_options = 3; {Pascal won't count array lengths for us.}
var @!long_options: array[0..n_options] of getopt_struct;
diff --git a/Build/source/texk/web2c/gftype.ch b/Build/source/texk/web2c/gftype.ch
index 2e51550240a..74bc8d4dec1 100644
--- a/Build/source/texk/web2c/gftype.ch
+++ b/Build/source/texk/web2c/gftype.ch
@@ -15,6 +15,12 @@
% turns on images. There is no terminal input to this program.
% Output is to stdout, and may, of course, be redirected.
+@x [0] l.27
+\def\(#1){} % this is used to make section names sort themselves better
+@y
+\def\({} % this is used to make section names sort themselves better
+@z
+
@x [0] l.30
\def\title{GFtype}
@y
@@ -57,7 +63,7 @@ procedure initialize; {this procedure gets things started properly}
const @<Constants in the outer block@>@/
type @<Types in the outer block@>@/
var @<Globals in the outer block@>@/
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
procedure initialize; {this procedure gets things started properly}
var i:integer; {loop index for initializations}
@!bound_default:integer; {temporary for setup}
@@ -443,7 +449,7 @@ Parse a Unix-style command line.
@d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
@d do_nothing == {empty statement}
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
procedure parse_arguments;
const n_options = 4; {Pascal won't count array lengths for us.}
var @!long_options: array[0..n_options] of getopt_struct;
diff --git a/Build/source/texk/web2c/mft.ch b/Build/source/texk/web2c/mft.ch
index 57f82579138..4bb78a0bcf1 100644
--- a/Build/source/texk/web2c/mft.ch
+++ b/Build/source/texk/web2c/mft.ch
@@ -74,7 +74,7 @@ procedure initialize;
var @<Local variables for initialization@>@/
begin @<Set initial values@>@/
@y
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
procedure initialize;
var @<Local variables for initialization@>@/
begin
@@ -989,7 +989,7 @@ used to provide basic formatting.
@d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
procedure parse_arguments;
const n_options = 5; {Pascal won't count array lengths for us.}
var @!long_options: array[0..n_options] of getopt_struct;
diff --git a/Build/source/texk/web2c/patgen.ch b/Build/source/texk/web2c/patgen.ch
index e6accc88d89..2c9d1cf848d 100644
--- a/Build/source/texk/web2c/patgen.ch
+++ b/Build/source/texk/web2c/patgen.ch
@@ -5,6 +5,14 @@
% properly---it is hard to test without more information.
% 03/23/88 (ETM) Brought up to date, converted for use with WEB to C.
+@x [0] l.13
+\def\PASCAL{Pascal}
+@y
+\def\PASCAL{Pascal}
+
+\def\({} % this is used to make section names sort themselves better
+@z
+
@x [0] Extend program title.
\def\title{PATGEN}
@y
@@ -53,7 +61,7 @@ procedure initialize; {this procedure gets things started properly}
var @<Local variables for initialization@>@/
begin print_ln(banner);@/
@y
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
procedure initialize; {this procedure gets things started properly}
var @<Local variables for initialization@>@/
begin
@@ -97,11 +105,11 @@ error message about what caused the error.
% machines, from Johannes Hielscher, 10 Jul 2019 00:00:03 (tex-live list),
% and later from Mojca Miklavec, 23 Sep 2019 21:21:42.
% It seems hopeless, so went back to the original values (10000000/500000).
-%
+%
% The real solution is to provide a way to allocate the arrays
% dynamically, so that the large arrays can be used by those who need
% them but other are not affected.
-%
+%
% If the values here are still too big, you can probably get it to work
% by adding swap or zram; or write a patch to allocate the arrays dynamically.
@x [27]
@@ -243,7 +251,7 @@ Parse a Unix-style command line.
@d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
procedure parse_arguments;
const n_options = 2; {Pascal won't count array lengths for us.}
var @!long_options: array[0..n_options] of getopt_struct;
diff --git a/Build/source/texk/web2c/pktogf.ch b/Build/source/texk/web2c/pktogf.ch
index 1dc768e46e0..d397fcb6b70 100644
--- a/Build/source/texk/web2c/pktogf.ch
+++ b/Build/source/texk/web2c/pktogf.ch
@@ -12,6 +12,12 @@
% gf and pk formats. PKtoGF runs silently unless it is given the
% -v switch in the command line.
+@x [0] l.19
+\def\(#1){} % this is used to make section names sort themselves better
+@y
+\def\({} % this is used to make section names sort themselves better
+@z
+
@x [0] l.21
\def\title{PKtoGF}
@y
@@ -60,7 +66,7 @@ procedure initialize; {this procedure gets things started properly}
var i:integer; {loop index for initializations}
begin print_ln(banner);@/
@y
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
procedure initialize; {this procedure gets things started properly}
var i:integer; {loop index for initializations}
begin
@@ -459,7 +465,7 @@ Parse a Unix-style command line.
@d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
procedure parse_arguments;
const n_options = 3; {Pascal won't count array lengths for us.}
var @!long_options: array[0..n_options] of getopt_struct;
diff --git a/Build/source/texk/web2c/pktype.ch b/Build/source/texk/web2c/pktype.ch
index df785ce8b26..58316843997 100644
--- a/Build/source/texk/web2c/pktype.ch
+++ b/Build/source/texk/web2c/pktype.ch
@@ -8,6 +8,12 @@
% There is no terminal input to this program.
% Output is to stdout, and may, of course, be redirected.
+@x [0] l.25
+\def\(#1){} % this is used to make section names sort themselves better
+@y
+\def\({} % this is used to make section names sort themselves better
+@z
+
@x [0] l.27
\def\title{PKtype}
@y
@@ -46,7 +52,7 @@ procedure initialize; {this procedure gets things started properly}
@y
type @<Types in the outer block@>@/
var @<Globals in the outer block@>@/
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
procedure initialize; {this procedure gets things started properly}
var i:integer; {loop index for initializations}
begin
@@ -335,7 +341,7 @@ Parse a Unix-style command line.
@d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
procedure parse_arguments;
const n_options = 2; {Pascal won't count array lengths for us.}
var @!long_options: array[0..n_options] of getopt_struct;
diff --git a/Build/source/texk/web2c/pltotf.ch b/Build/source/texk/web2c/pltotf.ch
index fcc08fbc5cb..c4a9a535d24 100644
--- a/Build/source/texk/web2c/pltotf.ch
+++ b/Build/source/texk/web2c/pltotf.ch
@@ -11,6 +11,12 @@
% 01/16/90 (SR) Version 3.2.
% (more recent changes in the ChangeLog)
+@x [0] l.31
+\def\(#1){} % this is used to make section names sort themselves better
+@y
+\def\({} % this is used to make section names sort themselves better
+@z
+
@x [0] l.34
\def\title{PL\lowercase{to}TF}
@y
@@ -45,7 +51,7 @@ procedure initialize; {this procedure gets things started properly}
var @<Local variables for initialization@>@/
begin print_ln(banner);@/
@y
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
procedure initialize; {this procedure gets things started properly}
var @<Local variables for initialization@>@/
begin kpse_set_program_name (argv[0], my_name);
@@ -263,7 +269,7 @@ Parse a Unix-style command line.
@d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
procedure parse_arguments;
const n_options = 3; {Pascal won't count array lengths for us.}
var @!long_options: array[0..n_options] of getopt_struct;
diff --git a/Build/source/texk/web2c/pooltype.ch b/Build/source/texk/web2c/pooltype.ch
index 74b4d9a2354..8aa11064223 100644
--- a/Build/source/texk/web2c/pooltype.ch
+++ b/Build/source/texk/web2c/pooltype.ch
@@ -4,6 +4,12 @@
% 11/29/89 (KB) Version released with 8-bit TeX.
% (more recent changes in the ChangeLog)
+@x [0] l.13
+\def\(#1){} % this is used to make section names sort themselves better
+@y
+\def\({} % this is used to make section names sort themselves better
+@z
+
@x [0] l.16
\def\title{POOL\lowercase{type}}
@y
@@ -34,7 +40,7 @@ procedure initialize; {this procedure gets things started properly}
var @<Local variables for initialization@>@;
begin @<Set initial values of key variables@>@/
@y
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
procedure initialize; {this procedure gets things started properly}
var @<Local variables for initialization@>@;
begin
@@ -112,7 +118,7 @@ Parse a Unix-style command line.
@d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
procedure parse_arguments;
const n_options = 2; {Pascal won't count array lengths for us.}
var @!long_options: array[0..n_options] of getopt_struct;
diff --git a/Build/source/texk/web2c/tangle.ch b/Build/source/texk/web2c/tangle.ch
index 5bb61fe776e..a3842ed0979 100644
--- a/Build/source/texk/web2c/tangle.ch
+++ b/Build/source/texk/web2c/tangle.ch
@@ -73,7 +73,7 @@ procedure initialize;
var @<Local variables for initialization@>@/
begin @<Set initial values@>@/
@y
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
procedure initialize;
var @<Local variables for initialization@>@/
begin
@@ -681,7 +681,7 @@ Parse a Unix-style command line.
@d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
procedure parse_arguments;
const n_options = 9; {Pascal won't count array lengths for us.}
var @!long_options: array[0..n_options] of getopt_struct;
diff --git a/Build/source/texk/web2c/tftopl.ch b/Build/source/texk/web2c/tftopl.ch
index 445ba8e3ab1..c26137b6958 100644
--- a/Build/source/texk/web2c/tftopl.ch
+++ b/Build/source/texk/web2c/tftopl.ch
@@ -15,6 +15,12 @@
% 01/16/90 (SR) Version 3.1.
% (more recent changes in the ChangeLog)
+@x [0] l.25
+\def\(#1){} % this is used to make section names sort themselves better
+@y
+\def\({} % this is used to make section names sort themselves better
+@z
+
@x [0] l.28
\def\title{TF\lowercase{to}PL}
@y
@@ -64,7 +70,7 @@ label @<Labels in the outer block@>@/
procedure initialize; {this procedure gets things started properly}
begin print_ln(banner);@/
@y
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
procedure initialize; {this procedure gets things started properly}
begin
kpse_set_program_name (argv[0], my_name);
@@ -186,6 +192,18 @@ strcat (ASCII_all, '`abcdefghijklmnopqrstuvwxyz{|}~');@/
MBL_string:=' MBL'; RI_string:=' RI '; RCE_string:=' RCE';
@z
+@x [36] l.680
+while l>0 do @<Reduce \(1)|l| by one, preserving the invariants@>;
+@y
+while l>0 do @<Reduce \(|l| by one, preserving the invariants@>;
+@z
+
+@x [37] l.687
+@ @<Reduce \(1)|l|...@>=
+@y
+@ @<Reduce \(|l|...@>=
+@z
+
% [38] How we output the character code depends on |charcode_format|.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@x
@@ -228,6 +246,18 @@ else begin tfm[0]:=c; out_octal(0,1);
put_byte(RCE_string[1+(b div 3)], pl_file);
@z
+@x [40] l.751
+if a>@'3777 then @<Reduce \(2)negative to positive@>;
+@y
+if a>@'3777 then @<Reduce negative to positive@>;
+@z
+
+@x [43] l.775
+@ @<Reduce \(2)negative to positive@>=
+@y
+@ @<Reduce negative to positive@>=
+@z
+
% [78] No progress reports unless verbose.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@x
@@ -338,7 +368,7 @@ Parse a Unix-style command line.
@d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
procedure parse_arguments;
const n_options = 4; {Pascal won't count array lengths for us.}
var @!long_options: array[0..n_options] of getopt_struct;
diff --git a/Build/source/texk/web2c/vptovf.ch b/Build/source/texk/web2c/vptovf.ch
index d9ec8935155..de5b1adab31 100644
--- a/Build/source/texk/web2c/vptovf.ch
+++ b/Build/source/texk/web2c/vptovf.ch
@@ -34,7 +34,7 @@ procedure initialize; {this procedure gets things started properly}
var @<Local variables for initialization@>@/
begin print_ln(banner);@/
@y
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
procedure initialize; {this procedure gets things started properly}
var @<Local variables for initialization@>@/
begin kpse_set_program_name (argv[0], my_name);
@@ -237,7 +237,7 @@ Parse a Unix-style command line.
@d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
procedure parse_arguments;
const n_options = 3; {Pascal won't count array lengths for us.}
var @!long_options: array[0..n_options] of getopt_struct;
diff --git a/Build/source/texk/web2c/weave.ch b/Build/source/texk/web2c/weave.ch
index 5a932e576ab..7a409a09411 100644
--- a/Build/source/texk/web2c/weave.ch
+++ b/Build/source/texk/web2c/weave.ch
@@ -81,7 +81,7 @@ procedure initialize;
const @<Constants in the outer block@>@/
type @<Types in the outer block@>@/
var @<Globals in the outer block@>@/
-@<Define |parse_arguments|@>@/
+@<Define \(|parse_arguments|@>@/
@<Error handling procedures@>@/
procedure initialize;
var @<Local variables for initialization@>@/
@@ -562,7 +562,7 @@ Parse a Unix-style command line.
@d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
procedure parse_arguments;
const n_options = 4; {Pascal won't count array lengths for us.}
var @!long_options: array[0..n_options] of getopt_struct;