85 |
|
goto bad_params; |
86 |
|
cpd = vname; |
87 |
|
while (*prms && (*prms != '=') & !isspace(*prms)) { |
88 |
< |
if (!isid(*prms)) |
88 |
> |
if (!isid(*prms) | (cpd-vname >= RMAXWORD-1)) |
89 |
|
goto bad_params; |
90 |
|
*cpd++ = *prms++; |
91 |
|
} |
286 |
|
|
287 |
|
if ((ffname = getpath(fname, getrlibpath(), R_OK)) == NULL) { |
288 |
|
sprintf(errmsg, "cannot find function file \"%s\"", fname); |
289 |
< |
error(USER, errmsg); |
289 |
> |
error(SYSTEM, errmsg); |
290 |
|
} |
291 |
|
fcompile(ffname); |
292 |
|
} |
298 |
|
int n; |
299 |
|
|
300 |
|
if (fobj == NULL) |
301 |
< |
error(USER, "arg(n) called without a context"); |
301 |
> |
error(INTERNAL, "arg(n) called without a modifier context"); |
302 |
|
|
303 |
|
n = argument(1) + .5; /* round to integer */ |
304 |
|
|