/*Copyright (C) 1992, 1995 by Thomas Glen Smith.  All Rights Reserved.*/
/* apledfr APL2 V1.0.0 *************************************************
* Called from apledit to delete the apled list.                        *
***********************************************************************/
#define INCLUDES APLCB+APLED+APLFUNCI+APLMEM+APLTOKEN+TREE
#include "includes.h"
void apledfr(e)
Apledst e;		/* Edit common area.					*/
{
	Dequeue; Expungf;
	extern int aplerr;
	Apled ed;

	while ( NULL != (ed  = e->edhdr)) {
		dequeue(e,ed); /* remove from list */
		if (ed->apledtm)
			expungf(ed->apledhd, ed->apledcn); /* free tokens */
		free(ed->apledch); /* free statement text */
		free(ed); /* free apled structure */
	}
}