/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* execexek APL2 V1.0.0 ************************************************
* Called by execexec and execspeg to complete expression evaluation.   *
***********************************************************************/
#define INCLUDES TREE+APLTOKEN
#include "includes.h"
Apltoken execexek(void)
{
     Execterm; Pop;
     extern Treelist treehdr;
     extern int aplerr;
     Apltoken op=NULL;

     if (aplerr == 0) {
          op = pop(&(treehdr->avlexec->avloprst));
          if (aplerr == 0 && treehdr->avlexec->avloprst != NULL ||
               treehdr->avlexec->avlfunst != NULL)
               aplerr = 61; /* stack should be empty */
/*		else execterm(); ** pop the top execstk element from stack **
*/
     }
     return(op); /* return token for operand */
}