260 |
SCM res = SCM_EOL; |
SCM res = SCM_EOL; |
261 |
SCM *lloc = &res; |
SCM *lloc = &res; |
262 |
SCM arg = SCM_CAR (args); |
SCM arg = SCM_CAR (args); |
263 |
|
int argnum = 1; |
264 |
args = SCM_CDR (args); |
args = SCM_CDR (args); |
265 |
while (!SCM_NULLP (args)) { |
while (!SCM_NULLP (args)) { |
266 |
while (SCM_CONSP (arg)) { |
while (SCM_CONSP (arg)) { |
268 |
lloc = SCM_CDRLOC (*lloc); |
lloc = SCM_CDRLOC (*lloc); |
269 |
arg = SCM_CDR (arg); |
arg = SCM_CDR (arg); |
270 |
} |
} |
271 |
SCM_VALIDATE_NULL (SCM_ARGn, arg); |
SCM_VALIDATE_NULL (argnum, arg); |
272 |
arg = SCM_CAR (args); |
arg = SCM_CAR (args); |
273 |
args = SCM_CDR (args); |
args = SCM_CDR (args); |
274 |
|
argnum++; |
275 |
}; |
}; |
276 |
*lloc = arg; |
*lloc = arg; |
277 |
return res; |
return res; |