/* Copyright (C) 1992 by Thomas Glen Smith.  All Rights Reserved. */
/* execpop APL2 V1.0.0 *************************************************
* Called by execterm to pop and free a stack of apltokens.             *
***********************************************************************/
#define INCLUDES APLTOKEN
#include "includes.h"
void execpop(ptokhdr)
Apltoken *ptokhdr;
{
	Execfree; Pop;
	Apltoken tok;

	while (NULL != (tok = pop(ptokhdr)))
		execfree(tok); /* free token */
}