/*Copyright (C) 1992, 1994 by Thomas Glen Smith.  All Rights Reserved.*/
/* execexeh APL2 V1.0.0 ************************************************
* Called by execdyah after a dyadic operation to test for a user       *
* defined function w/o return having been executed, returning 1 if so. *
***********************************************************************/
#define INCLUDES APLTOKEN+APLCB+TREE
#include "includes.h"
int execexeh(op)
Apltoken op; /* token for result from dyadic function. */
{
     extern Treelist treehdr;
     extern int aplerr;
     int ret=0; /* default return value */

     if (treehdr->lastfun == 2) {  /* last user dyadic? */
          treehdr->lastfun = 0; /* reset */
          if (aplerr == 0 && op == NULL) {
               ret = 1; /* tell of user function w/o return */
               if (treehdr->avltokhd != NULL
                    || treehdr->avlexec->avlfunst != NULL
                    || treehdr->avlexec->avloprst != NULL)
                    aplerr = 94; /* user function w/o return m/b alone */
          }
     }
     return(ret);
}