71 |
|
|
72 |
|
|
73 |
#define PUSH_FIRST_VAL(x) int nvals = 1 ; object result = (x) |
#define PUSH_FIRST_VAL(x) int nvals = 1 ; object result = (x) |
74 |
#define PUSH_VAL(x) fcall.values[nvals++] = (x) |
#define PUSH_VAL(x) if (nvals>=sizeof(fcall.values)/sizeof(*fcall.values) \ |
75 |
|
FEerror("Too many function call values"); \ |
76 |
|
else fcall.values[nvals++] = (x) |
77 |
#define RETURN_VALS fcall.nvalues= nvals; return result;} 0 |
#define RETURN_VALS fcall.nvalues= nvals; return result;} 0 |
78 |
|
|
79 |
#define FUNCALL(n,form) (VFUN_NARGS=n,form) |
#define FUNCALL(n,form) (VFUN_NARGS=n,form) |