/*Copyright (C) 1992, 1994 by Thomas Glen Smith.  All Rights Reserved.*/
/* execgeto - APL2 V1.0.0 **********************************************
* Called by execindx.                                                  *
* Called during execute processing to pop the next operand from the    *
* stack, returning its aplcb pointer.  Handles operand indexing.       *
***********************************************************************/
#define INCLUDES APLCB+APLTOKEN+TREE
#include "includes.h"
Aplcb execgeto(hdr)
void *hdr; /* ptr to head of token stack */
{
	Errstop; Execgetp; Pop;
     extern Treelist treehdr;
     Apltoken tok; /* current operand */

     if (NULL == (tok = pop(hdr)))
          return(errstop(59,NULL,NULL,NULL)); /* undefined operand */
     return(execgetp(tok));
}