******** fig3.50 **********

	void
	push( element_type x, STACK S )
	{
		if( is_full( S ) )
			error("Full stack");
		else
			S->stack_array[ ++S->top_of_stack ] = x;
	}