******** fig3.46 **********

	void
	pop( STACK S )
	{
		node_ptr first_cell;
	
		if( is_empty( S ) )
			error("Empty stack");
		else
		{
			first_cell = S->next;
			S->next = S->next->next;
			free( first_cell );
		}
	}