/*Copyright (C) 1992, 1994 by Thomas Glen Smith.  All Rights Reserved.*/
/* axistest APL2 V1.0.0 ************************************************
* Called by slashtra and execnext to determine if the top element on a *
* stack is an axis.                                                    *
***********************************************************************/
#define INCLUDES APLCB+APLTOKEN
#include "includes.h"
int axistest(stack)
struct apltoken *stack;
{
     return(stack != NULL && stack->token_code == AXIS_INDEX_TOKEN);
}