celltonode
| CALL '(' ')' { $$ = op2(CALL, celltonode($1,CVAR), NIL); }
| CALL '(' patlist ')' { $$ = op2(CALL, celltonode($1,CVAR), $3); }
| NUMBER { $$ = celltonode($1, CCON); }
| STRING { $$ = celltonode($1, CCON); }
| IVAR { $$ = op1(INDIRECT, celltonode($1, CVAR)); }
| VAR { arglist = $$ = celltonode($1,CVAR); }
arglist = $$ = linkum($1,celltonode($3,CVAR)); }
VAR { $$ = celltonode($1, CVAR); }
extern Node *linkum(Node *, Node *), *celltonode(Cell *, int);
return (op1(INDIRECT, celltonode(literal0, CUNK)));
nullnode = celltonode(nullloc, CCON);