/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* apledcl APL2 V1.0.0 *************************************************
* Called from aplediu and aplediy to delete tokens for the most        *
* recent DEL editor input statement.                                   *
***********************************************************************/
#define INCLUDES APLFUNCI+APLED+APLTOKEN
#include "includes.h"
void apledcl(e)
struct apledst *e;		/* Edit common area.					*/
{
	Expungf;

	expungf(e->fp->functary, e->fp->functotl); /* free tokens */
	e->fp->functary = NULL; /* tidy up */
	*(e->fp->functokc) = e->fp->functotl = 0; /* tidy up */
	*(e->fp->functokp) = NULL; /* tidy up */
}