| 39 |
|
/* else replace alias */ |
| 40 |
|
if (m->oargs.nsargs != 1) |
| 41 |
|
objerror(m, INTERNAL, "bad # string arguments"); |
| 42 |
< |
aobj = lastmod(objndx(m), m->oargs.sarg[0]); |
| 43 |
< |
if (aobj < 0) |
| 44 |
< |
objerror(m, USER, "bad reference"); |
| 45 |
< |
aop = objptr(aobj); |
| 42 |
> |
aop = m; |
| 43 |
> |
aobj = objndx(aop); |
| 44 |
> |
do { /* follow alias trail */ |
| 45 |
> |
if (aop->oargs.nsargs == 1) |
| 46 |
> |
aobj = lastmod(aobj, aop->oargs.sarg[0]); |
| 47 |
> |
else |
| 48 |
> |
aobj = aop->omod; |
| 49 |
> |
if (aobj < 0) |
| 50 |
> |
objerror(aop, USER, "bad reference"); |
| 51 |
> |
aop = objptr(aobj); |
| 52 |
> |
} while (aop->otype == MOD_ALIAS); |
| 53 |
> |
/* copy struct */ |
| 54 |
|
arec = *aop; |
| 55 |
|
/* irradiance hack */ |
| 56 |
|
if (do_irrad && !(r->crtype & ~(PRIMARY|TRANS)) && |