/* Copyright (C) 1993 by Thomas Glen Smith.	All Rights Reserved. */
/* execspep APL2 V1.0.0 ************************************************
* Called by execspex to determine if the current assignment is a		 *
* selective specification of the form (a b c) # ...				 *
***********************************************************************/
#define INCLUDES APLCHDEF+APLDERIV+APLTOKEN+APLCB+TREE
#include "includes.h"
int execspep()
{
	extern Treelist treehdr;
	Apltoken nametok;
	Treelist treetest;

	nametok = treehdr->avltokhd;
	while (nametok->token_code == OPERAND_TOKEN) {
		nametok = nametok->token_queue.token_next_ptr;
		if (nametok == NULL) return(0);
	}
	return((nametok->token_code == LEFT_PAREN) ? 1 : 0);
}