list delete( pq )
	list pq;

	{if (pq==NULL) Error /* Delete from empty PQ */;
	else return( pq->next );
	};