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