2215 |
{ |
{ |
2216 |
while (n--) |
while (n--) |
2217 |
{ |
{ |
2218 |
if (SCM_IMP (lst) || SCM_NCONSP (lst)) |
if (!SCM_CONSP (lst)) |
2219 |
return 0; |
return 0; |
2220 |
ok = ok && l2ra (SCM_CAR (lst), ra, base, k + 1); |
ok = ok && l2ra (SCM_CAR (lst), ra, base, k + 1); |
2221 |
base += inc; |
base += inc; |
2228 |
{ |
{ |
2229 |
while (n--) |
while (n--) |
2230 |
{ |
{ |
2231 |
if (SCM_IMP (lst) || SCM_NCONSP (lst)) |
if (!SCM_CONSP (lst)) |
2232 |
return 0; |
return 0; |
2233 |
scm_array_set_x (SCM_ARRAY_V (ra), SCM_CAR (lst), SCM_MAKINUM (base)); |
scm_array_set_x (SCM_ARRAY_V (ra), SCM_CAR (lst), SCM_MAKINUM (base)); |
2234 |
base += inc; |
base += inc; |