| 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 |
|
|