199 |
|
eputs("Bad call to argument!\n"); |
200 |
|
quit(1); |
201 |
|
} |
202 |
< |
if ((n < AFLAGSIZ) & (actp->an >> n)) /* already computed? */ |
202 |
> |
if ((n < AFLAGSIZ) & actp->an >> n) /* already computed? */ |
203 |
|
return(actp->ap[n]); |
204 |
|
|
205 |
|
if (!actp->fun || !(ep = ekid(actp->fun, n+1))) { |
209 |
|
} |
210 |
|
curact = actp->prev; /* previous context */ |
211 |
|
aval = evalue(ep); /* compute argument */ |
212 |
< |
curact = actp; /* push back context */ |
213 |
< |
if (n < ALISTSIZ) { /* save value if we can */ |
212 |
> |
curact = actp; /* put back calling context */ |
213 |
> |
if (n < ALISTSIZ) { /* save value if room */ |
214 |
|
actp->ap[n] = aval; |
215 |
|
actp->an |= 1L<<n; |
216 |
|
} |