/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* execdyau APL2 V1.0.1 ************************************************
* Called from execdyas to check for a dyadic routine of type           *
* (*oper)(Aplcb, Aplcb, NULL), i.e. pick.                              *
***********************************************************************/
#define INCLUDES APLCB+APLDERIV+FUNSTRUC+FUNCODES
#include "includes.h"
sub_dyad execdyau(fun)
void *fun;
{
	Mixed_dyadics *mdp;
	sub_dyad ret;


	switch (((Codes *)fun)->funky_flags) {
		case MIXG: /* pick */
			mdp = &(((Mixa *)fun)->dyad);
			ret = mdp->epdixe;
			break;
		default:
			ret = NULL; /* no match */
			break;
	}
	return(ret);
}