/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* slasherr APL2 V1.0.0 ************************************************
* Called from dottran, eachtran, and slashtra when an error occurs to  *
* free storage.                                                        *
***********************************************************************/
#define INCLUDES APLTOKEN+APLDERIV
#include "includes.h"
void slasherr(funtok,axistok,op,dp)
Apltoken funtok,axistok,op;
Aplderiv dp;
{
     Dervfree; Execfree;

     if (funtok)  execfree(funtok);
     if (op)      execfree(op);
     if (axistok) execfree(axistok);
     if (dp)      dervfree(dp);
}