% Bugs (sigh) in Computers \& Typesetting --- the most recent errata

\input manmac
\def\.#1{\hbox{\tt#1}}
\font\sltt=cmsltt10
\font\niness=cmss9
\font\ninessi=cmssi9
\proofmodefalse
\raggedbottom
\output{\hsize=29pc \onepageout{\unvbox255\kern-\dimen@ \vfil}}

\def\today{\number\day\
  \ifcase\month\or
  Jan\or Feb\or Mar\or Apr\or May\or Jun\or
  Jul\or Aug\or Sep\or Oct\or Nov\or Dec\fi
  \ \number\year}

\def\cutpar{{\parfillskip=0pt\par}}

\def\rhead{Bugs in {\tensl Computers \& Typesetting as of \today}}
\def\bugonpage#1(#2) \par{\bigbreak\tenpoint
  \hrule width\hsize
  \line{\lower3.5pt\vbox to13pt{}Page #1\hfil(#2)}\hrule width\hsize
  \nobreak\medskip}
\def\buginvol#1(#2) \par{\bigbreak\penalty-1000\tenpoint
  \hrule width\hsize
  \line{\lower3.5pt\vbox to13pt{}Volume #1\hfil(#2)}\hrule width\hsize
  \nobreak\medskip}
\def\slMF{{\manual 89:;}\-{\manual <=>:}} % slant the logo
\def\0{\raise.7ex\hbox{$\scriptstyle\#$}}
\newcount\nn
\newdimen\nsize \newdimen\msize \newdimen\ninept \ninept=9pt
\newbox\eqbox \setbox\eqbox=\hbox{\kern2pt\eightrm=\kern2pt}

\tenpoint
\noindent This is a list of all substantial corrections made to {\sl Computers
\& Typesetting\/} since the publication of the Millennium Edition at the close
of the year 2000. (More precisely, it lists errors corrected
since the 16th printing of Volume~A, the 7th printing
of Volume~B, the 6th printing of Volume~C, the 4th printing of Volume~D,
and the 5th printing of Volume~E.)
Corrections made to the softcover version of {\sl The \TeX book\/} are
the same as corrections to Volume~A\null. Corrections to the softcover
version of {\sl The \slMF\kern1ptbook\/} are the same as corrections
to Volume~C\null. Changes to the mini-indexes
and master indexes of Volumes B, D, and~E are not shown here unless they are
not obviously derivable from what has been shown. Some (or all) of these
errors have been corrected in the most recent printings.
\looseness=-1

% volume A

\bugonpage A16, line 7 from the bottom (6/30/01)

\font\magnifiedfiverm=cmr5 at 10pt
\tenpoint\indent
Ten-point type is different from%
  \magnifiedfiverm\ magnif{}ied f{}ive-point type.

\bugonpage A17, line 7 (6/30/01)

\ninepoint\indent
fications that grow in geometric ratios---something like equal-tempered
tuning\cutpar

\bugonpage A51, lines 18--20 (6/30/01)

\tenpoint\kern-6pt\noindent
$$\openup1pt\halign{\indent#\hfil\cr
|ff| yields ff\thinspace;$\!$\quad |fi| yields fi\thinspace;$\!$\quad
|fl| yields fl\thinspace;$\!$\quad
|ffi| yields ffi\thinspace;$\!$\quad |ffl| yields ffl\thinspace;\cr
|``| yields``\thinspace;\qquad |''| yields ''\thinspace;\qquad
|!||`| yields !`\thinspace;\qquad |?||`| yields ?`\thinspace;\cr
|--| yields --\thinspace;\qquad |---| yields ---\thinspace.\cr}$$

\bugonpage A52, line 7 from the bottom (6/30/01)

\tenpoint\kern-6pt\noindent
$$\halign{\indent\hbox to 50pt{#\hfil}&\hbox to 35pt{#\hfil}&#\hfil\cr
|\ae,\AE|&\ae,\thinspace\AE&(Latin ligature and Scandinavian letter AE)\cr}$$

\bugonpage A71, line 15 (6/30/01)

\tenpoint\indent
One of the interesting things that can happen when glue stretches and\cutpar

\bugonpage A180, line 20 (6/30/01)

\ninepoint\indent
Challenge number 5:\enspace
$\qquad\tenmath k=1.38065\times10^{-16}\rm\,erg\,K^{-1}$.

\bugonpage A254, line 12 from the bottom becomes two lines (4/09/01)

\ninepoint\noindent
\begintt
\output={\unvbox255
  \ifnum\outputpenalty<10000 \penalty\outputpenalty\fi}
\endtt

\bugonpage A292, lines 13--16 (6/30/01)

\def\s{\hskip0pt plus1pt}
\ninepoint\textindent{$\bull$}|\mathchoice|\s
$\langle$filler$\rangle$\s|{|\s$\langle$math mode material$\rangle$\s|}|\s
$\langle$filler$\rangle$\s|{|\s$\langle$math mode material$\rangle$\s|}|\break
$\langle$filler$\rangle$|{|$\langle$math mode material$\rangle$|}|
$\langle$filler$\rangle$|{|$\langle$math mode material$\rangle$|}|.
Four math lists, which are defined as in the
second alternative of a \<math field>), are
recorded in a ``choice item'' that is appended to the current list.

\bugonpage A306, line 7 (6/30/01)

\ninepoint\noindent
instead of a shelf{\kern0pt}ful.
In fact, the latter idea---to
insert an ^{italic correction}---is prefer-\cutpar

\bugonpage A308, lines 25 and 26 (6/17/02)

\ninepoint
\begintt
\def\appendroman#1#2#3{\expandafter\def\expandafter#1\expandafter
  {\csname\expandafter\gobble\string#2\romannumeral#3\endcsname}}
\endtt

\bugonpage A311, line 14 (12/2/02)

\ninepoint\indent
|\def\\{\if\space\next\ % assume that \next is unexpandable|

\bugonpage A323, line 12 from the bottom (6/30/01)

\ninepoint\noindent
\hbox to\parindent{\bf\hss18.31.\enspace}%
|$k=1.38065\times10^{-16}\rm\,erg\,K^{-1}$|.

\bugonpage A364, lines 12--15 from the bottom (01/21/03)

\ninepoint\noindent
|\def\loggingall{\tracingcommands=2 \tracingstats=2|\par\noindent
|  \tracingpages=1 \tracingoutput=1 \tracinglostchars=1 |\par\noindent
|  \tracingmacros=2 \tracingparagraphs=1 \tracingrestores=1 |\par\noindent
|  \showboxbreadth=\maxdimen \showboxdepth=\maxdimen \errorstopmode}|\par
\noindent
|\def\tracingall{\tracingonline=1 \loggingall}|

\bugonpage A364, line 5 from the bottom (01/21/03)

\ninepoint\noindent
|\def\fmtversion{3.14159265} % identifies the current format|

\bugonpage A450, lines 14--16 from the bottom (12/19/02)

\begingroup\def\\#1{$_{\kern\scriptspace#1}$}
\indent\qquad{\tt s\\1tic
  \\1exp x\\3p pi\\3a \\2i\\1a i\\2al \\2id \\1do \\1ci \\2io ou\\2 \\2us}
\medskip\noindent
(where subscripts that aren't shown are zero), and this yields
$$\centerline{%
\tt.\\0s\\0u\\1p\\0e\\0r\\1c\\0a\\0l\\1i\\0f\\0r\\0a\\0g\\1i\\0l\\4i%
\\0s\\1t\\2i\\0c\\1e\\0x\\3p\\2i\\3a\\0l\\2i\\1d\\0o\\1c\\2i\\0o\\2u\\2s\\0.}$$
\endgroup

\bugonpage A451, line 15 (1/30/01)

\tenpoint\noindent
{\sl Connecticut Yankee\/} come out with only nine or
ten bad hyphens:

\bugonpage A451, line 23 (1/30/01)

\tenpoint\noindent\begintt
  mo-er-der-mohren-mut-ter-mar-mor-mon-u-menten-macher.
\endtt

\bugonpage A454, lines 23--30 (6/30/01)

\begingroup
\hyphenpenalty=-1000 \pretolerance=-1 \tolerance=1000
\doublehyphendemerits=-100000 \finalhyphendemerits=-100000
\ddanger If a suitable starting letter is found, let it be in font~$f$.
Hyphenation is abandoned unless the ^|\hyphenchar| of~$f$ is a number
between 0 and~255, inclusive.
If this test is passed, \TeX\ continues to scan forward
until coming to something that's not one of the following three
``admissible items'': (1)~a character in font~$f$ whose |\lccode|
is nonzero; (2)~a ligature formed entirely from characters of type~(1);
(3)~an implicit kern. The first inadmissible item terminates this part of
the process; the trial word consists of all the letters found in admissible
items. Notice that all of these letters are in font~$f$.
\par\endgroup

\bugonpage A461, right column (7/08/01)

\eightpoint\noindent
\llap{*}|\char|, {\it 43--45}, 76, 86, 155, 283, $\underline{286}$,

\bugonpage A466, left column (7/09/01)

\eightpoint\noindent
\llap{*}|\floatingpenalty|, $\underline{123}$--$\underline{124}$,
 272, 281, {\it 363}.

\bugonpage A470, left column (1/21/03)

\eightpoint\noindent
|\loggingall|, $\underline{364}$.

\bugonpage A473, left column (6/30/01)

\eightpoint\noindent
orphans, {\sl see\/} widow words.

% volume B
\def\\#1{\hbox{\it#1\/\kern.05em}} % italic type for identifiers
\def\to{\mathrel{.\,.}} % double dot, used only in math mode

\bugonpage Bvii, bottom two lines (12/20/02)

\eightpoint\noindent
all of those changes.
I~now believe that the final bug was discovered and removed on
20~December 2002.
The finder's fee has converged to \$327.68.

\hsize=35pc

\bugonpage B2, line 10 from the bottom (12/20/02)

\ninepoint\noindent\hskip10pt
{\bf define} $\\{banner}\equiv\hbox{\tt\char'23}$%
{\tt This\]is\]TeX,\]Version\]3.141592\char'23}\quad
$\{\,$printed when \TeX\ starts$\,\}$

\bugonpage B3, new paragraph to follow line 9 (12/20/02)

\tenpoint\noindent\quad
Incidentally, Pascal's standard \\{round} function can be problematical,
because it disagrees with the IEEE floating-point standard.
Many implementors have
therefore chosen to substitute their own home-grown rounding procedure.

\bugonpage B8, line 2 (5/04/01)

\tenpoint\noindent
statements will be meaningful. We insert the label
`\\{exit}' just before the `{\bf end}' of a procedure in\cutpar

\bugonpage B30, line $-4$ (5/04/01)

\ninepoint\noindent
\quad{\bf begin} \\{update\_terminal};\quad$\{\,$now the user sees
 the prompt for sure$\,\}$

\bugonpage B84, lines 22 and 27 (5/04/01)

\ninepoint\noindent
\quad$\\{ignore}=9$\quad$\{\,$characters to ignore ( |^^@| )$\,\}$\par
\noindent
\quad$\\{active\_char}=13$\quad$\{\,$characters that invoke
 macros ( |~| )$\,\}$

\bugonpage B139, line 20 (12/19/02)

\ninepoint\noindent
\quad{\bf begin while} $(\\{state}=\\{token\_list}) \land
 (\\{loc}=\\{null}) \land (\\{token\_type}\ne\\{v\_template})$ {\bf do}\par
\noindent\qquad\\{end\_token\_list};\quad$\{\,$conserve stack space$\,\}$

\bugonpage B206, line 14 (10/30/02)

\tenpoint\noindent
used input files like \.{webmac.tex}.

\bugonpage B206, new paragraph to follow line 22 (12/20/02)

\tenpoint\noindent\quad
The following procedures don't allow spaces to be part of
file names; but some users seem to like names that are spaced-out.
System-dependent changes to allow such things should probably
be made with reluctance, and only when an entire file name that
includes spaces is ``quoted'' somehow.

\bugonpage B256, line 25 (12/20/02)

\ninepoint\noindent
\qquad\\{cur\_glue}: \\{real};\quad$\{\,$glue seen so far$\,\}$\par\noindent
\qquad\\{cur\_g}: \\{scaled};\quad$\{\,$rounded
  equivalent of \\{cur\_glue} times the glue ratio$\,\}$\par\noindent
\quad{\bf begin} $\\{cur\_g}\gets0$;
  $\\{cur\_glue}\gets\\{float\_constant}(0)$;\par\noindent
\quad$\\{this\_box}\gets\\{temp\_ptr}$;
 $\\{g\_order}\gets\\{glue\_order}(\\{this\_box})$;
 $\\{g\_sign}\gets\\{glue\_sign}(\\{this\_box})$;

\bugonpage B258, line 5 from the bottom (12/20/02)

\ninepoint\noindent
\quad{\bf begin} $g\gets\\{glue\_ptr}(p)$;
  $\\{rule\_wd}\gets\\{width}(g)-\\{cur\_g}$;

\bugonpage B258, bottom line (12/20/02)

\ninepoint\noindent
\qquad\qquad{\bf begin} $\\{cur\_glue}\gets\\{cur\_glue}+\\{stretch}(g)$;
 $\\{vet\_glue}(\\{float}(\\{glue\_set}(\\{this\_box}))*\\{cur\_glue})$;\par
\noindent\qquad\qquad$\\{cur\_g}\gets\\{round}(\\{glue\_temp})$;

\bugonpage B259, line 4 (12/20/02)

\ninepoint\noindent
\qquad\qquad{\bf begin} $\\{cur\_glue}\gets\\{cur\_glue}-\\{shrink}(g)$;
 $\\{vet\_glue}(\\{float}(\\{glue\_set}(\\{this\_box}))*\\{cur\_glue})$;\par
\noindent\qquad\qquad$\\{cur\_g}\gets\\{round}(\\{glue\_temp})$;

\bugonpage B259, new line to precede old line 7 (12/20/02)

\ninepoint\noindent
\quad$\\{rule\_wd}\gets\\{rule\_wd}+\\{cur\_g}$;

\bugonpage B260, line 21 (12/19/02)

\ninepoint\noindent
\qquad{\bf else begin} $\\{lx}\gets\\{lr}$ {\bf div} $(\\{lq}+1)$;

\bugonpage B261, line 9 (12/20/02)

\ninepoint\noindent
\qquad\\{cur\_glue}: \\{real};\quad$\{\,$glue seen so far$\,\}$\par\noindent
\qquad\\{cur\_g}: \\{scaled};\quad$\{\,$rounded
  equivalent of \\{cur\_glue} times the glue ratio$\,\}$\par\noindent
\quad{\bf begin} $\\{cur\_g}\gets0$;
  $\\{cur\_glue}\gets\\{float\_constant}(0)$;\par\noindent
\quad$\\{this\_box}\gets\\{temp\_ptr}$;
 $\\{g\_order}\gets\\{glue\_order}(\\{this\_box})$;
 $\\{g\_sign}\gets\\{glue\_sign}(\\{this\_box})$;

\bugonpage B262, line 10 from the bottom (12/20/02)

\ninepoint\noindent
\quad{\bf begin} $g\gets\\{glue\_ptr}(p)$;
  $\\{rule\_ht}\gets\\{width}(g)-\\{cur\_g}$;

\bugonpage B262, line 6 from the bottom (12/20/02)

\ninepoint\noindent
\qquad\qquad{\bf begin} $\\{cur\_glue}\gets\\{cur\_glue}+\\{stretch}(g)$;
 $\\{vet\_glue}(\\{float}(\\{glue\_set}(\\{this\_box}))*\\{cur\_glue})$;\par
\noindent\qquad\qquad$\\{cur\_g}\gets\\{round}(\\{glue\_temp})$;

\bugonpage B262, line 2 from the bottom (12/20/02)

\ninepoint\noindent
\qquad\qquad{\bf begin} $\\{cur\_glue}\gets\\{cur\_glue}-\\{shrink}(g)$;
 $\\{vet\_glue}(\\{float}(\\{glue\_set}(\\{this\_box}))*\\{cur\_glue})$;\par
\noindent\qquad\qquad$\\{cur\_g}\gets\\{round}(\\{glue\_temp})$;

\bugonpage B263, new line to precede old line 2 (12/20/02)

\ninepoint\noindent
\quad$\\{rule\_ht}\gets\\{rule\_ht}+\\{cur\_g}$;

\bugonpage B264, line 10 (12/19/02)

\ninepoint\noindent
\qquad{\bf else begin} $\\{lx}\gets\\{lr}$ {\bf div} $(\\{lq}+1)$;

\bugonpage B280, lines 23 and 24 (4/08/01)

\tenpoint\noindent
or unset nodes; in particular, each mlist item appears in the
variable-size part of \\{mem}, so the \\{type} field is always present.

\bugonpage B299, line 9 (12/20/02)

\ninepoint\noindent
\qquad\qquad\quad{\bf if\/} $\\{type}(r)=\\{kern\_node}$ {\bf then}
 \quad$\{\,$unneeded italic correction$\,\}$

\bugonpage B332, line 6 (12/19/02)

\tenpoint\noindent
is being scanned, or when no alignment preamble is active.

\bugonpage B332, line 8 (12/19/02)

\ninepoint\noindent
\quad{\bf begin if\/} $(\\{scanner\_status}=\\{aligning}) \lor
 (\\{cur\_align}=\\{null})$ {\bf then}

\bugonpage B382, line 6 (1/01/01)

\tenpoint\noindent
between `fl' and `y', then $m=2$, $t=2$, and $y_1$ will
be a ligature node for `fl' followed by an\cutpar

\bugonpage B386, line 11 (4/08/01)

\ninepoint\noindent
\quad$\\{qi}(2),\\{qi}(6)$: {\bf begin} $\\{cur\_r}\gets\\{rem\_byte}(q)$;%
 \quad$\{\,$\||=:|, \||=:>|$\,\}$

\bugonpage B472, new paragraph to follow line 10 (12/20/02)

\tenpoint\noindent\quad
A devious user might force an \\{endv} command to occur just about anywhere;
we must defeat such hacks.

\bugonpage B472, replacement for what used to be line 13 (12/20/02)

\ninepoint\noindent
\quad{\bf begin} $\\{base\_ptr}\gets\\{input\_ptr}$;
 $\\{input\_stack}[\\{base\_ptr}]\gets\\{cur\_input}$;\par\noindent
\quad{\bf while} $(\\{input\_stack}[\\{base\_ptr}].\\{index\_field}\ne
  \\{v\_template}) \land{}$\par\noindent
\quad\qquad $(\\{input\_stack}[\\{base\_ptr}].\\{loc\_field}=
  \\{null}) \land {}$\par\noindent
\quad\qquad $(\\{input\_stack}[\\{base\_ptr}].\\{state\_field}=
  \\{token\_list})$ {\bf do} \\{decr}(\\{base\_ptr});\par\noindent
\quad{\bf if\/} $(\\{input\_stack}[\\{base\_ptr}].\\{index\_field}\ne
  \\{v\_template}) \lor {}$\par\noindent
\quad\qquad $(\\{input\_stack}[\\{base\_ptr}].\\{loc\_field}\ne
  \\{null}) \lor {}$\par\noindent
\quad\qquad $(\\{input\_stack}[\\{base\_ptr}].\\{state\_field}\ne
  \\{token\_list})$ {\bf then}\par\noindent
\qquad\\{fatal\_error}(\hbox{\tt\char'23(interwoven\]alignment\]preambles\]%
    are\]not\]allowed)\char'23});\par\noindent
\quad{\bf if\/} $\\{cur\_group}=\\{align\_group}$ {\bf then}

\bugonpage B475, line 12 (7/01/01)

\ninepoint\noindent
\qquad{\bf end};\quad$\{\,$now we are in vertical mode,
 working on the list that will contain the display$\,\}$

% volume C
\hsize=29pc
\def\\#1{\hbox{\it#1\/\kern.05em}} % italic type for identifiers

\bugonpage C11, line 11 (10/11/01)

\noindent
the area below the bar to the area above it equal to
$(\sqrt5+1)/2\approx1.61803$, the\cutpar

\bugonpage C29, illustration for exercise 4.11 (9/09/01)

\noindent
[points 2 and 5 should not be labeled twice]

\bugonpage C156, line 15 from the bottom (9/09/01)

\ninepoint\noindent
be the values they had upon entry to the group.)

\bugonpage C171, line 16 from the bottom (6/18/02)

\tenpoint
\<loop>\is\<loop header>|:|\<loop text> {\tt endfor}

\bugonpage C179, line 7 from the bottom (9/09/01)

\ninepoint\noindent
next time \MF\ gets to the end of an input line, it will stop reading
from the\cutpar

\bugonpage C204, line 3 from the bottom (7/08/01)

\ninepoint\noindent
slightly. If $\\{autorounding}>1$,
you get even more changes: Paths are perturbed slightly\cutpar

\bugonpage C238, lines 9 and 8 from the bottom (7/08/01)

\ninepoint\noindent
tance is ${\rm length}(z_4-z_1)$. But there's a slicker solution:
Just calculate
$$\hbox{abs ypart$((z_1-z_2)\mathbin{\rm rotated}-{\rm angle}(z_3-z_2))$.}$$

\bugonpage C286, line 25 (9/09/01)

\ninepoint\noindent
problem; it would simply have put |ENDFOR| into the
replacement text of |asts|, because\cutpar

\bugonpage C289, line 7 (9/09/01)

\vskip-6pt\ninepoint\begintt
if if pair x: x>(0,0) else: false fi: A else: B fi.
\endtt

\bugonpage C292, line 10 from the bottom (9/09/01)

\ninepoint\noindent
be known by saying `{\bf if\/} known $p-q$: $p=q$ {\bf else}:~{\bf false}
{\bf fi}'; transforms could be handled\cutpar

\bugonpage C313, bottom line (6/30/01)

\rightline{\eightss--- LA ROCHEFOUCAULD, {\eightssi Maximes\/}\enspace(1665)}

\bugonpage C346, left column (6/18/02)

\eightpoint\noindent
\llap{*}|:|, 169, 171, 317--319.

\bugonpage C346, right column (7/09/01)

\eightpoint\noindent
\llap{*}|angle|, {\it29}, {\it67}, $\underline{72}$, {\it107},
{\it135}, 211, {\it238}.

\bugonpage C357, right column (7/08/01)

\eightpoint\noindent
\llap{*}|true|, 55, {\it64\/}--{\it65}, 170, 210.

\bugonpage C352, left column (6/30/01)

\eightpoint\noindent
La Rochefoucauld, Fran\c cois VI, 313.

% Volume D
\def\\#1{\hbox{\it#1\/\kern.05em}} % italic type for identifiers
\def\to{\mathrel{.\,.}} % double dot, used only in math mode

\bugonpage Dvii, bottom two lines (12/21/02)

\eightpoint\noindent
corporates all of those changes.
I~now believe that the final bug was discovered on 22~January 2001,
and removed in version 2.71828.
The finder's fee has converged to \$327.68.

\hsize=35pc

\bugonpage D2, line $-17$ (12/21/02)

\ninepoint\noindent
{\bf define} $\\{banner}\equiv\hbox{\tt\char'23}$%
{\tt This\]is\]METAFONT,\]Version\]2.71828\char'23}\quad
$\{\,$printed when \MF\ starts$\,\}$

\bugonpage D2, lines 4 and 5 from the bottom (12/23/02)

\tenpoint\noindent
types; there are no `{\bf var}' parameters, except in the case of files
or in the system-dependent \\{paint\_row} procedure;
there are no tag fields on variant records; there are no \\{real} variables;
no procedures are declared local to other procedures.)

\bugonpage D8, line 2 (5/04/01)

\tenpoint\noindent
statements will be meaningful. We insert the label
`\\{exit}' just before the `{\bf end}' of a procedure in\cutpar

\bugonpage D28, line $-8$ (5/04/01)

\ninepoint\noindent
\quad{\bf begin} \\{update\_terminal};\quad$\{\,$now the user sees
 the prompt for sure$\,\}$

\bugonpage D42, replacement for lines 8--13 (12/23/02)

\tenpoint\noindent\quad
Notice that if 64-bit integer arithmetic were available,
we could simply compute $(2^{29}*p+\nobreak q)\allowbreak\,
\hbox{\bf div}\,(2*q)$.
But when we are restricted to Pascal's 32-bit arithmetic we
must either resort to multiple-precision maneuvering
or use a simple but slow iteration. The multiple-precision technique
would be about three times faster than the code adopted here, but it
would be comparatively long and tricky, involving about sixteen
additional multiplications and divisions.

\bugonpage D43, line 20 (12/23/02)

\tenpoint\noindent
language or 64-bit substitute is advisable.

\bugonpage D44, lines 24--26 (12/23/02)

\tenpoint\noindent\quad
Once again it is a good idea to use 64-bit arithmetic if
possible; otherwise |take_scaled| will use more than 2\% of the running time
when the Computer Modern fonts are being generated.

\bugonpage D101, line 21 (7/08/01)

\ninepoint\noindent
\quad{\bf define} $\\{subscr\_head\_loc}(\hbox{\tt\#})\equiv\hbox{\tt\#}+1$
\quad$\{\,$where \\{value}, \\{subscr\_head}, and \\{attr\_head} are$\,\}$

\bugonpage D180, lines 22 and 23 (1/26/01)

\tenpoint\noindent
$(y,-x)$ will appear in node~$p$. Similarly, a fourth-octant
transformation will have been applied after the transition, so
we will have $\\{x\_coord}(q)=\hbox{$-x$}$ and $\\{y\_coord}(q)=y$.

\bugonpage D184, line 18 (12/21/02)

\ninepoint\noindent
\qquad\\{chopped}: \\{integer};\quad
$\{\,$positive if data truncated, negative if data dangerously large$\,\}$

\bugonpage D184, line 25 (12/21/02)

\ninepoint\noindent
\quad{\bf if\/} $(\\{internal}[\\{autorounding}]>0)\land(\\{chopped}=0)$
 {\bf then} \\{xy\_round};

\bugonpage D184, line 27 (12/21/02)

\ninepoint\noindent
\quad{\bf if\/} $(\\{internal}[\\{autorounding}]>\\{unity})\land
 (\\{chopped}=0)$  {\bf then} \\{diag\_round};

\bugonpage D184, line 32 (12/21/02)

\ninepoint\noindent
\qquad{\bf if\/} $(\\{internal}[\\{autorounding}]\le0)\lor(\\{chopped}\ne0)$
 {\bf then} \\{print\_spec}({\tt\char`",\]after\]subdivision\char`"})

\bugonpage D185, lines 15--19 (12/21/02)

\ninepoint\noindent
\quad{\bf define} \\{procrustes}({\tt\char`#})${}\equiv{}${\bf if\/}
  $\\{abs}(\.\#)\ge\\{dmax}$ {\bf then}\par\noindent
\qquad\qquad\quad{\bf if\/} $\\{abs}(\.\#)>\\{max\_allowed}$ {\bf then}\par
\noindent\qquad\qquad\qquad{\bf begin} $\\{chopped}\gets1$;\par\noindent
\qquad\qquad\qquad{\bf if\/} $\.\#>0$ {\bf then} $\.\#\gets\\{max\_allowed}$
  {\bf else} $\.\#\gets-\\{max\_allowed}$;\par\noindent
\qquad\qquad\qquad{\bf end}\par\noindent
\qquad\qquad\quad{\bf else if\/} $\\{chopped}=0$ {\bf then}
  $\\{chopped}\gets-1$

\bugonpage D185, old line 22 (12/21/02)

\ninepoint\noindent
\quad$p\gets\\{cur\_spec}$; $k\gets1$; $\\{chopped}\gets0$;
 $\\{dmax}\gets\\{max\_allowed}/2$;

\bugonpage D185, old line 28 (12/21/02)

\ninepoint\noindent
\quad{\bf if\/} $\\{chopped}>0$ {\bf then}

\bugonpage D196, lines 7 and 8 (1/26/01)

\tenpoint\noindent
where $x'(t)\ge0$ we have $\\{right\_type}=%
\\{first\_octant}$ or $\\{right\_type}=\\{eighth\_octant}$; in regions where
$x'(t)\le0$,
we have $\\{right\_type}=\\{fifth\_octant}$ or $\\{right\_type}=\\{fourth%
\_octant}$.

\bugonpage D511, line 17 (7/03/01)

\tenpoint\noindent
from appearing again.

% volume E
\hsize=29pc

\bugonpage E7, line 11 (12/21/02)

\ninepoint\indent
\\{hair}, \\{vair}, \\{stem}, \\{curve}, \\{ess}, \\{flare}, \\{dot\_size},
 \\{bar}, \\{slab},

\bugonpage E7, line 11 (12/21/02)

\ninepoint\indent
\\{crisp}, \\{tiny}, \\{fine};
\medskip\noindent
and \\{thin\_join} should not be less than \\{fine}.

\bugonpage E9, line 9 (7/03/01)

\tenpoint\indent
|[92] [123] [124]) ) )|

\bugonpage E19, line 19 (11/7/01)

\tenpoint
\line{\\{cap\_notch\_cut}\hskip 0pt plus1.5fil46/36\hfil31/36\hfil25/36\hfil
24/36\hfil22/36\hskip0pt plus3fil25/36}

\bugonpage E41, line 8 (12/21/02)

\ninepoint\noindent\mathchardef\AM="2026 % ampersand
\quad$\\{extra\_endchar}\gets\\{extra\_endchar}\AM
 \.{\char`"charcode:=charcode+code\_offset;"}$;

\bugonpage E53, line 7 (12/21/02)

\def\frac#1/#2{\leavevmode\kern.1em
  \raise.5ex\hbox{\the\scriptfont0 #1}\kern-.1em
  /\kern-.15em\lower.25ex\hbox{\the\scriptfont0 #2}}
\ninepoint\noindent
{\bf numeric} \\{mid\_thickness};
             $\\{mid\_thickness}={\rm Vround}$ \frac1/3[$\\{vair},\\{stem}$];

\bugonpage E377, lines 3 and 4 from the bottom (12/22/02)

\newbox\shorthyf \setbox\shorthyf=\hbox{-\kern-.05em}
\mathchardef\period=`\.
{\catcode`\-=\active \global\def-{\copy\shorthyf\mkern3.9mu}
 \catcode`\.=\active \global\def.{\period\mkern3mu}}
\def\8#1{\mathrel{\mathcode`\.="8000 \mathcode`\-="8000
  #1\unkern}} % `..' and `--'
\ninepoint\noindent
\qquad {\bf path} \\{p\_}; $\\{p\_}=z_{\$\$l}\{z_{@1}-z_{\$\$l}\}\8{...}
 \\{darkness}[z_{@1},.5[z_{@2},z_{\$\$l}]]\8{...}z_{@2}$\par\noindent
\qquad\quad$\8{---}z_{\$l}\8{--}z_{\$r}\8{--}z_{@0}\8{--}z_{\$\$r}\8{--}%
 {\rm cycle}$;\par\noindent
\qquad{\bf if\/} $(y_{\$\$}>y_\$) \ne ({\rm ypart}\,\hbox{\bf precontrol}\,1
  \,\hbox{\bf of\/}\,\\{p\_} > {\rm ypart}\,\hbox{\bf postcontrol}\,1\,
  \,\hbox{\bf of\/}\,\\{p\_})$:\par\noindent
\qquad\quad$\\{p\_}=z_{\$\$l}\{z_{@1}-z_{\$\$l}\}\8{...}
 \\{darkness}[z_{@1},.5[z_{@2},z_{\$\$l}]]$\par\noindent
\qquad\qquad$\8{---}z_{\$l}\8{--}z_{\$r}\8{--}z_{@0}\8{--}z_{\$\$r}\8{--}%
 {\rm cycle}$;\ {\bf fi}\par\noindent
\line{\qquad {\bf filldraw} \\{p\_};\hfil \% arm and beak}

\bugonpage E577, right column (12/23/02)

\eightpoint\noindent
{\bf padded}, 103--111, 117--121, $\underline{549}$.

\bye
