/*Copyright (C) 1992, 1995 by Thomas Glen Smith. All Rights Reserved.*/
/* leafdel APL2 V1.0.0 *************************************************
* Called by aplclean. Deletes a leaf for a node in a binary tree. *
***********************************************************************/
#define INCLUDES APLCB+STDIO
#include "includes.h"
leafdel(leaf)
Aplcb leaf;
{
Endoper; Temp;
if (leaf == NULL) return; /* nothing to delete */
endoper(temp(leaf)); /* frees APL variable */
}