🚀 go-pugleaf

This message is intended for Per Hamnqvist@DEC.FRANCE.  It appears
that Istill have mailer problems:

Yes Per - there were SEVERAL known typos.  I have enclosed the following
corrigenda for you below:
Known Errata:

P. 46, Figure 1, subfigure (g):
	Remove links between 7 and 12 as well as 12 and 20
P. 51, Figure 5, subfigure (g)
	Links between 19 and 37 should actually be links between
	19 and 7

{ Corrected BSDelete routine }
PROCEDURE BSDelete(x:key; VAR root:ptr);
CONST maxkey=MAXINT;
VAR temp1,temp2,temp4:ptr;
    flg:boolean;
BEGIN
  IF SplaySearch(x,root) THEN
    BEGIN
      temp1:=root^.left; temp2:=root^.right;	{ Save subtrees }
      IF temp1<>NIL THEN			{ Is there a left subtree? }
	BEGIN
	  flg:=SplaySearch(maxkey,temp1);	{ Find max left subtree node }
	  temp1^.right:=temp2;			{ Attach right subtree }
	END ELSE temp1:=temp2;			{ Just attach right tree }
       dispose(root);
       root:=temp1;				{ Return new tree }
    END;
END;

Hope this helps.				-d.