302 |
print_params_t *new_params; |
print_params_t *new_params; |
303 |
|
|
304 |
SCM_VALIDATE_NONEMPTYLIST_COPYLEN (2, params, n); |
SCM_VALIDATE_NONEMPTYLIST_COPYLEN (2, params, n); |
305 |
for (ls = params; !SCM_NULLP (ls); ls = SCM_CDR (ls)) |
for (ls = params; !SCM_NULL_OR_NIL_P (ls); ls = SCM_CDR (ls)) |
306 |
SCM_ASSERT (scm_ilength (SCM_CAR (params)) == 2 |
SCM_ASSERT (scm_ilength (SCM_CAR (params)) == 2 |
307 |
&& SCM_INUMP (SCM_CAAR (ls)) |
&& SCM_INUMP (SCM_CAAR (ls)) |
308 |
&& SCM_INUM (SCM_CAAR (ls)) >= 0 |
&& SCM_INUM (SCM_CAAR (ls)) >= 0 |