******** fig3.16 **********

	void
	delete_list( LIST L )
	{
		position p;

/*1*/		p = L->next;	/* header assumed */
/*2*/		L->next = NULL;
/*3*/		while( p != NULL )
		{
/*4*/			free( p );
/*5*/			p = p->next;
		}
	}