/*Copyright (C) 1992, 1998 by Thomas Glen Smith.  All Rights Reserved.*/
/*pop APL2 V1.0.1 ******************************************************
* Called by compute, execpop, execterm, and without.                   *
* Pop is called to remove the top element from a stack.  Hdr points to *
* top-of-stack.  A pointer to the element popped from the stack is     *
* returned.                                                            *
***********************************************************************/
#define INCLUDES QEL
#include "includes.h"
void *pop(hdr)
void *hdr;
{
	El ret;

	ret=((El)hdr)->nel;
	if (ret)
		((El)hdr)->nel = ret->nel;
	return(ret);
}