/*Copyright (C) 1992, 1995 by Thomas Glen Smith.  All Rights Reserved.*/
/* execout APL2 V1.0.0 *************************************************
* Called from execmonh to put the result on the stack.                 *
***********************************************************************/
#define INCLUDES APLCB+APLTOKEN+TREE
#include "includes.h"
void execout(out,offset)
Aplcb out; /* result */
int offset; /* offset for potential error messages */
{
	Exectok; Lifo;
	extern Treelist treehdr;
	extern int aplerr;
	Apltoken outtok;

	if (NULL == out) {
		aplerr = 999; /* should not occur */
		return;
	}
	outtok = exectok(out,offset); /* get storage for token */
	if (aplerr == 0)
		outtok = lifo(&(treehdr->avlexec->avloprst),outtok);
}