/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* execaxis APL2 V1.0.0 ************************************************
* Called from execmonh, execdyaj, and slashtra when an axis operation  *
* is recognized.                                                       *
***********************************************************************/
#define INCLUDES APLTOKEN+APLCB+TREE
#include "includes.h"
Aplcb execaxis(stackhdr)
void *stackhdr; /* stack from which axis is to be popped */
{
     Execaxit; Pop;
     extern int aplerr;
     Apltoken tok;

     if   (NULL == (tok = pop(stackhdr))) {
          aplerr = 83; /* axis not found */
          return(NULL);
     }
     else return(execaxit(tok));
}