/*Copyright (C) 1992, 1998 by Thomas Glen Smith.  All Rights Reserved.*/
/* lifo APL2 V1.0.1 ****************************************************
* Called by aplrun, execexee, execnexs, and slashtrb.                  *
* Lifo is called to add to a stack in lifo order.  Hdr points to       *
* top-of-stack, and nxt is the element to be added.                    *
***********************************************************************/
#define INCLUDES QEL
#include "includes.h"
void *lifo(hdr,nxt)
void *hdr,*nxt;
{
	((El)nxt)->nel = ((El)hdr)->nel;
	((El)hdr)->nel = nxt;
	return(nxt);
}