22 |
|
|
23 |
|
/* bits in argument flag (better be right!) */ |
24 |
|
#define AFLAGSIZ (8*sizeof(unsigned long)) |
25 |
< |
#define ALISTSIZ 8 /* maximum saved argument list */ |
25 |
> |
#define ALISTSIZ 10 /* maximum saved argument list */ |
26 |
|
|
27 |
|
typedef struct activation { |
28 |
|
char *name; /* function name */ |
202 |
|
ACTIVATION *actp = curact; |
203 |
|
EPNODE *ep = NULL; |
204 |
|
double aval; |
205 |
– |
|
206 |
– |
if (!n) /* asking for # arguments? */ |
207 |
– |
return((double)nargum()); |
205 |
|
|
206 |
|
if (!actp | (--n < 0)) { |
207 |
|
eputs("Bad call to argument!\n"); |