| # | Line 200 | Line 200 | argument(n) /* return nth argument for active functi | |
|---|---|---|
| 200 | register int n; | |
| 201 | { | |
| 202 | register ACTIVATION *actp = curact; | |
| 203 | < | EPNODE *ep; |
| 203 | > | register EPNODE *ep; |
| 204 | double aval; | |
| 205 | ||
| 206 | if (actp == NULL || --n < 0) { | |
| # | Line 387 | Line 387 | register VARDEF *vp; | |
| 387 | #endif | |
| 388 | if (errno) { | |
| 389 | wputs(fname); | |
| 390 | < | wputs(": bad call\n"); |
| 390 | > | if (errno == EDOM) |
| 391 | > | wputs(": domain error\n"); |
| 392 | > | else if (errno == ERANGE) |
| 393 | > | wputs(": range error\n"); |
| 394 | > | else |
| 395 | > | wputs(": error in call\n"); |
| 396 | return(0.0); | |
| 397 | } | |
| 398 | errno = lasterrno; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines (old) |
| > | Changed lines (new) |