******** fig3.52 **********

	void
	pop( STACK S )
	{
		if( is_empty( S ) )
			error("Empty stack");
		else
			S->top_of_stack--;
	}