/*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 */
}