list delete( pq )
	list pq;

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