154 |
|
|
155 |
|
|
156 |
|
#ifdef OUTCHAN |
157 |
< |
chanout() /* set output channels */ |
157 |
> |
chanout(cs) /* set output channels */ |
158 |
> |
int (*cs)(); |
159 |
|
{ |
160 |
|
register EPNODE *ep; |
161 |
|
|
162 |
|
for (ep = outchan; ep != NULL; ep = ep->sibling) |
163 |
< |
chanset(ep->v.kid->v.chan, evalue(ep->v.kid->sibling)); |
163 |
> |
(*cs)(ep->v.kid->v.chan, evalue(ep->v.kid->sibling)); |
164 |
|
|
165 |
|
} |
166 |
|
#endif |
430 |
|
addekid(ep2, ep1); |
431 |
|
addekid(ep2, getE1()); |
432 |
|
|
433 |
+ |
if ( |
434 |
|
#ifdef FUNCTION |
435 |
< |
if (ep1->type == SYM) |
435 |
> |
ep1->type == SYM && |
436 |
|
#endif |
437 |
< |
{ |
437 |
> |
ep1->sibling->type != NUM) { |
438 |
|
ep1 = newnode(); |
439 |
|
ep1->type = TICK; |
440 |
|
ep1->v.tick = -1; |