Complete issue 10:1 as one pdf - TUG

Page 16 : Changes to the Programs and Fonts 20 February 1989
Qx module 806
if is-running(depth (q) then depth(q1: =depth(p) ;
QY
if is-running(depth(q) ) then depth(q1: =depth(p) ;
if 000 then
begin r :=link(q) ; link(q) :=null; q: =hpack(q,natural) ;
shift-amount (q) :=o; link(q) :=r; link(s1 :=q;
end ;
Qz
333. \hskip Opt plus lfil\ifdim problem (found by Alan Guth, 20 Aug 87)
Qx module 366
Q!cvl~backup,Q!radix~backup:small~number; Cto save Icur-val-levell and Iradixl)
QY
Q!cvl~backup,Q!radix~backup,Q!co~backup:small~number;
(to save I cur-val-level l , etc .)
Qz
Qx
backup-backup: =link(backup-head) ;
QY
co-backup:=cur-order; backup-backup:=link(backup-head);
Qz
ox
link(backup-head):=backup-backup;
QY
cur-order:=co-backup; link(backup-head):=backup-backup;
Qz
334. leaders too sensitive near exact multiples (M. F. Bridgland, 9 Nov 87)
Qx module 626
begin edge:=cur-h+rule-wd; lx:=O;
QY
begin rule-wd:=rule-wd+lO; (compensate for floating-point rounding)
edge:=cur-h+rule-wd; lx:=O;
Qz
Qx ibid
cur-h:=edge; goto next-p;
Q Y
cur-h:=edge-10; goto next-p;
Qz
Qx module 635
begin edge:=cur-v+rule-ht; lx:=O;
QY
begin rule-ht:=rule-ht+lO; (compensate for floating-point rounding)
edge:=cur-v+rule-ht; lx:=O;
Qz
Qx ibid
cur-v:=edge; goto next-p;
QY
cur-v:=edge-10; goto next-p;
Qz