/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* execmona - APL2 V1.0.0 **********************************************
* Called from execspec and execmong to determine if current token      *
* should be pushed on the function stack because it may potentially be *
* part of a dyadic operation later performed after the left argument   *
* is obtained.  If not, execmonh is called.                            *
***********************************************************************/
#define INCLUDES APLCHDEF+APLTOKEN+FUNSTRUC+APLCB+TREE
#include "includes.h"
void execmona(tok)
Apltoken tok; /* current function */
{
     Lifo;
     extern Treelist treehdr;

     if (treehdr->avlexec->avlfunst != NULL &&
          treehdr->avlexec->avlfunst->token_code != AXIS_INDEX_TOKEN)
          execmonh(); /* do any monadics on stack */
     if (tok != NULL)
          tok = lifo(&(treehdr->avlexec->avlfunst),tok);
}